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Woord vooraf 


Dit boek is gemaakt met als doel de gebruiker van microcomputers ecn aantal leuke, maar 
ook zinvolle programma’s in handen te geven. De programma’s zijn geschreven in stan- 
daard BASIC. Dat wil zeggen dat er op gelet is dat deze programma’s op 95% van alle 
computers met een BASIC-interpreter of -compiler kunnen draaien. Toch bestaat de mo- 
gelijkheid dat er hier en daar kleine aanpassingen noodzakelijk zijn. Achterin het boek is 
een uitgebreide appendix opgenomen met zo goed als alle BASIC-statements en -func- 
ties met hun equivalenten voor andere machines. Een aantal kleine probleempjes zal hier 
besproken worden met daarbij een oplossing of een aanwijzing. 

In de educatieve programma’s en de spelprogramma’s wordt vaak gebruik gemaakt van 
willekeurige getallen. Deze willekeurige getallen worden gegenereerd door een zoge- 
naamde randomgenerator, een stukje programma. Deze randomgenerator moet gestart 
worden om ook werkelijk willekeurige getallen te produceren. Dit starten geschiedt met 
het statement RANDOM, zoals dat bijvoorbeeld voorkomt op de TRS-80. Andere compu¬ 
ters kennen statements als RAND of RANDOMIZE. Beschikt men niet over zo’n state¬ 
ment dan kan men het ook weglaten. De kans bestaat dan echter dat de randomgenerator 
steeds bij het zelfde getal start. Wanneer men dat wil voorkomen, dan kan men het RAN- 
DOM-statement vervangen door een klein programma. 

10 PRINT "GEEF GETAL < l-20> "5 
20 INPUT A 
30 FOR I = 1 TO A 
40 B = RND <0) 

50 NEXT I 

Nu dient zich onmiddellijk het tweede probleem aan. In de verschillende BASIC-versies is 
de RND-functie niet gelijk. Om dit probleem nu zoveel mogelijk te ondervangen is in dit 
boek van een standaard uitgegaan. In alle programma’s waarin de RND-functie wordt 
gebruikt, staat RND(O). 

De functie RND(O) levert een getal op dat ligt tussen nul en een. Zo kan bijvoorbeeld de 
functie RND(O) het getal 0.76212 of 0.23498 opleveren. In een aantal BASIC-interpreters 
dient de functie niet aangeroepen te worden met RND(O) maar met RND(1) om het zelfde 
resultaat te krijgen, dit geldt bijvoorbeeld voor de Philips P-2000. 

Om het scherm in een keer te wissen en de cursor links boven in de hoek (homepositie) te 
krijgen wordt in deze programmatuur gebruik gemaakt van het statement CLS. Dit bete- 
kent CLEAR SCREEN. Bij een aantal computers komt dit statement voor, maar bij andere 
weer niet. De gebruikers van bijvoorbeeld een Exidy Sorcerer zullen PRINT CHR$(12) 
moeten ingeven in plaats van CLS. Bij de Commodore computers is dit CLEAR/HOME. 

Bij de ontwikkeling van de programmatuur is ervan uitgegaan dat het beeldscherm wordt 
gebruikt als uitvoereenheid en hettoetsenbord als invoereenheid. De verleiding wasgroot 
om bij een aantal programma's de cassette of floppy disk als achtergrondgeheugen te 
gebruiken. Uiteindelijk is hiervan afgezien omdat de communicatie tussen computer en 
achtergrondgeheugen niet uniform geregeld is. 



Een van de grote problemen bij het beeldscherm is de lengte van de regels. Bij de samen- 
stelling van dit boek is ervan uitgegaan dat er maximaal 40 karakters op een regel kunnen 
en minimaal 14 regels onder elkaar voordat het scherm omhoog wipt. 

Sommige programma’s worden uitvoerig ingeleid, zodat de gebruiker in staat is snel de 
werking van een programma te begrijpen of hoe een interne data-file in elkaar zit. Later 
kan hij deze interne data-file met eigen gegevens vullen. Tegelijkertijd worden bij de pro¬ 
gramma’s suggesties gegeven om de programmatuur te veranderen of aan te passen aan 
de eigen machine. Gezien de strakke gestructureerde modulaire opbouw hoeft dit geen 
probleem te zijn. 
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1. Inleading 


De programma’s in dit boek zijn opgezet met de gedachte dat zowel beginners, als gevor- 
derden deze moeten kunnen gebruiken. In het kort zal nu worden uiteengezet hoe de 
programmatuur is opgebouwd en wat voor standaardoplossingen er gebruikt zijn. 

Het boek bestaat uit drie gedeelten. Het eerste gedeelte bestaat uit wat men zou kunnen 
noemen educatieve programma’s. Dit zijn programma’s voor kinderen van ongeveer vier 
tot twaalf jaar. Het tweede gedeelte bevat spelprogramma’s. Ze beginnen eenvoudig, 
maar lopen in moeilijkheidsgraad op. Het derde en laatste gedeelte van het boek wordt 
gevormd door algemene programma’s. Hierin vindt men onder andere een programma 
om een catalogus mee bij te houden en een programma om hypotheken met elkaar te 
vergelijken. 

Wanneer men het boek doorbladert, zal het opvallen dat de programma’s wat structuur 
betreft erg veel op elkaar lijken. Zowel de eenvoudige als de ingewikkelde programma’s 
zijn opgebouwd op eenzelfde gestructureerde modulaire manier. Dit is heel bewust ge- 
daan; het bevordert de overzichtelijkheid en daardoor kunnen fouten razend snel opge- 
spoord worden. 

Op elke regel staat in de meeste gevallen maar een statement. Dit kost weliswaar meer 
geheugenruimte maar de programma’s kunnen daardoor sneller worden ingetikt met min¬ 
der kans op fouten. Op sommige regels staat achter het statement een dubbele punt. 
Deze dubbele punt wordt gevolgd door een REM-statement met een opmerking. Deze 
opmerkingen zijn toegevoegd ter verduidelijking. Men hoeftze nietovertetikken. In princi- 
pe kan men alle REM-statementsweg laten. Dit heeftdan wel als nadeeldathetopsporen 
van tikfouten wordt bemoeilijkt. Ook later, wanneer men wijzigingen wil aanbrengen in het 
programma, zal men de REM-statements missen. 

Alle programma’s beginnen met een of meer NON-EXECUTABLE statements, dit zijn 
statements als RANDOM, DIM, DATA, etc. Deze statements zijn nodig voor de werking 
van het programma, maar de gebruiker merkt niet dat ze daadwerkelijk worden uitgevoerd. 
De NON-EXECUTABLE statements worden altijd gevolgd door het enige GOTO-state- 
ment in de programmatuur. Deze GOTO wijst naar een hoog regelnummer waar de stuur- 
module wordt gestart. Deze stuurmodule houdt het gehele programma onder controle. 
Van hieruit worden de verschillende onderdelen van het programma (subroutines) aange- 
roepen en uitgevoerd. 

Een voordeel is dat men de verschillende programmamodules door elkaar kan ontwikke- 
len. Men is niet meer gebonden aan een vaste plaats voor de programma-onderdelen. 
Een invoerblok hoeft dan niet meer v66r een uitvoerblok te staan. De gebruikte methode 
heeft ook een nadeel! Het nadeel is dat de programma’s gemiddeld langer zijn dan bij de 
conventionele manier van programma-ontwikkeling. Daar staat dan wel tegenover dat de¬ 
ze manier van werken veel sneller resultaat oplevert. 

Bij een tweetal programma’s zal uiteengezet worden hoe men van idee tot het programma 
gekomen is. Het is voor een klein programma ’zet de getallen op volgorde’, en voor een 
groot programma ’Zeeslag’ gedaan. 

Bij de opzet van de programmatuur is uitgegaan van een aantal basis-structuren. Het zou 
te ver voeren om alle structuren uit te leggen, maar de twee belangrijkste volgen hier. De 
twee structuren zijn belangrijk omdat zij helpen bij het snel opsporen van fouten en de 
gelegenheid bieden gemakkelijk wijzigingen in de programma’s aan te brengen. 
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Het zal de gebruiker wel duidelijk zijn dat in de programmatuur vrij veel gebruik wordt 
gemaakt van het subroutinemechanisme. Bekend verondersteld mag worden, dat een 
subroutine aangeroepen wordt met GOSUB ’regelnummer’ en dat de subroutine verlaten 
wordt met het RETURN-statement. 

Elke subroutine voert in principe maar een, hooguit twee functies uit. Bijvoorbeeld de in- 
voermodule haalt waarden op van het toetsenbord. De bewerkingsmodule manipuleert 
met variabelen en de uitvoermodule verzorgt het weergeven van de resultaten op het 
beeldscherm. 

Een subroutine is dan ook te beschouwen als een klein programma. Zo’n klein program- 
ma heeft een begin en een eind. Het begin van de subroutine wordt gevormd door het 
eerst uit te voeren BASIC-statement. Dit statement heeft relatief gezien het laagste regel¬ 
nummer in de subroutine. Het einde van de subroutine wordt gevormd door de RETURN- 
opdracht. D© RETURN heeft het hoogste regelnummer in de subroutine. Op deze manier 
heeft elke subroutine een ingang en een uitgang. Daarbij beslaan subroutines maar een 
betrekkelijk klein aantal regels. Het zal duidelijk zijn dat fouten snel gelokaliseerd kunnen 
worden omdat in een subroutine slechts een beperkt aantal variabelen gemanipuleerd 
worden, binnen een beperkt aantal programmaregels. 

FOR.. .NEXT-lussen widen in BASIC nogal eens aanleiding geven tot spaghetti-program- 
matuur. In dit soort lussen worden dan onnodig GOTO-statements geplaatst om uit de lus 
te komen, hetgeen de overzichtelijkheid niet ten goede komt. In dit boek wordt ervan uitge- 
gaan dat FOR...NEXT-lussen maar een ingang hebben en een uitgang. Eigenlijk hetzelf- 
de als bij de subroutines. Het begin van de FOR...NEXT-lus is de FOR..., het einde is de 
NEXT. Bij de NEXT wordt de lus verlaten. Voordeel ook hier weer, overzichtelijkheid. Na- 
deel, meestal heeft men iets meer programmaregels nodig. Om het een en anderte ver- 
duidelijken voIgt hier een voorbeeld. 

Voorbeeld: Matrix A is gevuld met tien getallen. De waarde van variabele K wordt inge- 
voerd via het toetsenbord. De ingevoerde waarde K moet voorkomen in matrix A. Komt de 
waarde voor dan vervolgt het programma zijn loop. Komt de waarde niet voor dan wordt 
de vraag herhaald. 

Oplossing A is de oplossing, zoals deze in alle programma’s in dit boek wordt gehanteerd. 
Oplossing B is een oplossing van de recht toe recht aan methode. 

Oplossing A Oplossing B 
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PRINT 

"GEEF WAARDE "; 

i 

10 

PRINT 

"GEEF WAARDE "? 

20 

INPUT i 

K 

\ 

20 

INPUT 

K 

30 

H = 0 


i 

30 

FOR I 

= 1 TO 10 

40 

FOR I 

= 1 TO 10 

i 

40 

IF K 

== A(I) THEN 70 

50 

IF K < 

> A(I) THEN 80 

t 

50 

NEXT 

I 

60 

H = I 


i 

60 

GOTO 

10 

70 

I = 10 


i 

70 

. 


B0 

NEXT I 


i 


. 


90 

IF H = 

0 THEN 10 

i 





100 


10 





/ 

Het verschil tussen oplossing A en B is duidelijk. Oplossing B is drie regels korter. Nadeel 
is wel dat er een GOTO in het programma sluipt. Erger dan de GOTO is wel dat de 
FOR...NEXT-lus twee uitgangen gekregen heeft. Een uitgang op regel 50, de normale, en 
een in regel 40. In oplossing A heeft de FOR.. .NEXT-lus nog steeds een uitgang en wel in 
regel 80. Dat is de enige plaats waar de lus verlaten wordt. De werking van het programma 
is vrij eenvoudig en de structuur geldt voor alle FOR...NEXT-lussen in dit boek. In regel 30 
wordt een hulpvariabele H gedefinieerd. Wanneer de waarde van deze variabele gelijk 
aan nul blijft, betekent dit dat de waarde van K niet in matrix A voorkomt. Is de waarde van 
H ongelijk aan nul, dan houdt dit in dat de waarde van K wel in matrix A voorkomt. In dit 
geval wordt H gevuld met de waarde van de index I. Tegelijkertijd wordt er voor gezorgd 
dat de index (de lus-teller) zijn maximale waarde krijgt, zodat de lus verlaten wordt. 
Voordeel van oplossing A: overzichtelijkheid en uniformiteit. Nadeel meer programma- 
regels. Voordeel van oplossing B minder programmaregels, maar als groot nadeel on- 
overzichtelijkheid. Men weet niet wanneer en waar de lus verlaten wordt. 

In een aantal programma’s wordt gebruik gemaakt van DATA-statements om een interne 
data-file op te bouwen. De interne data-file kan twee functies vervullen. De eerste functie 
is die van opslaan van stuurgegevens voor een programma. Het programma Zeeslag is 
hiervan een voorbeeld. De tweede functie is die van achtergrondgeheugen. In de gevallen 
waarin duidelijk sprake is van achtergrondgeheugen, is de interne data-file achterin het 
programma na het END-statement opgenomen. Dit is gedaan om het aanvullen met extra 
DATA-statements te vergemakkelijken zonder dat de regelnummering van het feitelijke 
programma wordt aangetast. 

Wanneer met een interne data-file als achtergrondgeheugen wordt gewerkt, is altijd een 
leesmodule aanwezig. Dit is gedaan om de mogelijkheid te scheppen de leesmodule te 
wijzigen zodat van een achtergrondgeheugen gelezen kan worden zonder daarbij het 
hele programma overhoop te hoeven gooien. 




2. Educatieve programma’s 


2.1 Welke letter is anders? 

Dit programma is speciaal ontwikkeld voor kleine kinderen, die nog niet op de basisschool 
zitten. Er worden negen letters op het beeldscherm gezet, waarbij een letter afwijkt van de 
overige acht. Het is de bedoeling dat de afwijkende letter wordt herkend en in het program¬ 
ma wordt ingevoerd. Afhankelijk van het antwoord geeft de computer ’goed’ of ’tout’. Het 
programma houdt bij, hoeveel goede antwoorden er gegeven zijn. 

Het zal duidelijk zijn dat de kleuter enige uitleg nodig heeft, voordat hij met het programma 
overweg kan. 

Dit programma leent zich uitstekend om een aantal wijzigingen aan te brengen om het 
zodoende aan de eigen computer aan te passen. 

Bij de invoer van het antwoord wordt gebruik gemaakt van het INPUT-statement. Dit houdt 
in dat men altijd na de invoer de RETURN-toets moet indrukken. Het zal blijken dat de 
kleintjes regelmatig vergeten de RETURN-toets in te drukken, zodat het programma niet 
verder gaat. Het is daarom raadzaam het INPUT-statement te vervangen door het GET- 
of INKEY$-statement. Deze statements stellen de gebruiker in staat om een karakter in te 
voeren zonder dat de RETURN-toets wordt ingedrukt. De invoer bij dit programma is 
slechts een karakter, dus men kan het statement gebruiken. Beschikt men over het 
INKEY$-statement dan moet de invoermodule INVOER I ★★★’ als voIgt gewijzigd 
worden: 

440 D$ = INKEY$ 

445 IF D$ = "" THEN 440 

Een ander idee om het programma te verbeteren, is de manier waarop aan de kleuter 
wordt kenbaar gemaakt dat het gegeven antwoord goed of fout is. Een aantal mogelijkhe- 
den is voorhanden. Er bestaat op verschillende computers de mogelijkheid een melodie- 
tje te produceren. Laat men een vrolijk melodietje horen dan was het antwoord goed. Een 
treurig melodietje geeft aan dat het antwoord fout was. Heeft men een kleurencomputer 
dan kan men ook met kleuren aangeven dat iets goed of fout is. Kan men deze twee sug- 
gesties niet realiseren dan kan men proberen om een gezichtje op het beeldscherm te 
zetten. Lacht het gezichtje dan was het goed. Kijkt het gezichtje sip dan was het antwoord 
fout. 



Om een idee te geven hoe dit gerealiseerd kan worden, vindt men hier twee subroutines, 
die men zelf nog in de programma’s kan verwerken. De plaats in het programma bepaalt 
men zelf. Men doet er het beste aan om met ON... GOSUB-statements deze routines aan 
te roepen. 


12 




9000 : 

9001 REM *** LACHEND *** 

9002 PRINT " /WWWWWWWX" 

9003 PRINT " ! !" 

9004 PRINT "<< 0 0 >>" 

9005 PRINT " \ I /" 

9006 PRINT " \-/ <GOED>" 

9007 PRINT " 

9008 RETURN 

9009 : 

9010 REM *** TREURIG *** 

9011 PRINT " /WWWWWWWX" 

9012 PRINT " ! ? !" 

9013 PRINT ''<< 0 0 >>" 

9014 PRINT " ! I !" 

9015 PRINT " ! /-X ! (FOUT !)" 

9016 PRINT " \ /" • 

9017 RETURN 

9018 : 


/WWWWWWWX 

i ; 

< < 0 0 > > 

X I / 

X-/ (GOED) 


/WWWWWWWX 

! ? ! 

< < . 0 0 » > > 

! I ! 

! /-X ! < FOUT !) 

\ / 


Programma 


10 REM *** WELKE LETTER IS ANDERS *** 

20 RANDOM :REM DIT STATEMENT MAG VERVALLEN 

30 GOTO 650 
40 : 

50 REM *** INITIALISEREN *** 

60 G = 0 :REM GOEDE ANTWOORDEN TELLER 

70 F = 10 SREM TOTAAL AANTAL VRAGEN 

80 T = 0 

90 A$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

100 RETURN 
110 : 

120 REM *** NIEUWE VRAAG *** 

130 A = INT(RND(0) * 26 + 1) 

140 B = INT(RND< 0) * 26 + 1) 

150 IF A » B THEN 130 
160 = LEFT$(A$5A) 

170 = RIGHT$(B$i1) 

180 C$ = LEFT$(A$» B) 

190 C* = RIGHTS(1) 

200 P = INT(RND(0) *9+1) 

210 T = T + 1 
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220 RETURN 
230 : 

240 REM *** UITVOER *** 

250 CLS :REM SCHERM WISSEN 

260 PRINT "*** WELKE LETTER IS ANDERS ***" 

270 PRINT “AANTAL OPGAVEN.:" ;T 

280 PRINT "AANTAL GOEDE ANTWOORDEN. . :»;G 
290 PRINT 

300 FOR I = 0 TO 2 
310 PRINT TAB(10); 

320 FOR J = 1 TO 3 
330 D$ = B$ 

340 IF I * 3 + J <> P THEN 360 
350 D$ = C % 

360 PRINT D$5 
370 NEXT J 
380 PRINT 
390 NEXT I 
400 RETURN 
410 s 

420 REM *** INVOER I *** 

430 PRINT 

440 PRINT "WELKE LETTER IS ANDERS "; 

450 INPUT D* 

460 E$ = "NEE " 

470 H = 0 

480 IF D$ <> C$ THEN 520 

490 H = 1 

500 E* = "JA " 

510 G = G + 1 

520 PRINT E$; "HOOR ! HET WAS "; C% 

530 REM ** WACHTLUS ** 

540 FOR Y = 1 TO 250 * (2 - H) 

550 NEXT Y 
560 RETURN 
570 : 

580 REM *** RESULTAAT *** 

590 A = INTUG / T ) * 1000 + .5) / 10 
600 PRINT A? "PROCENT GOEDE ANTWOORDEN." 

610 RETURN 
620 : 

630 REM **** STUURMODULE ****• 

640 REM *** INITIALISEREN *** 

650 GOSUB 60 

660 FOR X = 1 TO F 

670 REM *** NIEUWE VRAAG *** 

680 GOSUB 130 

690 REM *** UITVOER *** 

700 GOSUB 250 

710 REM *** INVOER I *** 

720 GOSUB 430 
730 NEXT X 

740 REM *** RESULTAAT *** 

750 GOSUB 250 
760 GOSUB 590 
770 END 
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Voorbeeld 


*** WELKE LETTER IB ANDERS *** 

AANTAL OPGAVEN.: 1 

AANTAL GOEDE ANTWOORDEN..: 0 

KKK 

KTK 

KKK 

WELKE LETTER IS ANDERS T 
JA HOOR ! HET WAS T 


*** WELKE LETTER IS ANDERS *** 

AANTAL OPGAVEN.: 2 

AANTAL GOEDE ANTWOORDEN..: 1 

BWW 

WWW 

WWW 

WELKE LETTER IS ANDERS B 
JA HOOR ! HET WAS B 


*** WELKE LETTER IS ANDERS *** 

AANTAL OPGAVEN.: 3 

AANTAL GOEDE ANTWOORDEN..: 2 

EEE 

XEE 

EEE 

WELKE LETTER IS ANDERS X 
JA HOOR ! HET WAS X 


*** WELKE LETTER IS ANDERS *** 

AANTAL OPGAVEN.: 4 

AANTAL GOEDE ANTWOORDEN..: 3 

WWW 

WWW 

JWW 

WELKE LETTER IS ANDERS J 
JA HOOR ! HET WAS J 








2.2 Zet in alfabetische volgorde 

Op het beeldscherm worden zeven genummerde vakken gevuld met een, twee, of drie 
letters al naar gelang het niveau waarop men zich bevindt. Deze letters staan in willekeuri- 
ge volgorde. Men moet trachten door middel van het wisselen van vakken, de letters in 
alfabetische volgorde te krijgen. Men geeft bij de vraag Wissel vak’ het nummer van het 
vak dat men wisselt met het vak, dat men bij de volgende vraag opgeeft. 

Denkt men alle letters op volgorde te hebben staan, dan geeft men bij de vraag 'Wissel 
vak’ een nul. Het programma gaat na of alle vakken inderdaad in alfabetische volgorde 
staan. Wanneer het antwoord goed is, zal een nieuwe reeks in de vakken worden ge- 
plaatst. Was het antwoord tout, dan zal de goede volgorde onder de foute volgorde wor¬ 
den afgedrukt. 


ZET IN ALFABETISCHE VOLGORDE 




Een nadeel in het programma is dat iedere keer het hele beeldscherm gewist en daarna 
weer opgebouwd wordt. Dit komt, omdat het boek in standaard BASIC geschreven is. 
Hierin komen PEEK- en POKE-opdrachten niet voor. Dat is ook begrijpelijk, omdat deze 
opdrachten geheugenlokaties rechtstreeks benaderen en omdat elk merk computer an- 
ders intern georganiseerd is, kunnen deze opdrachten dus niet gebruikt worden. Voor 
eigen gebruik kan men natuurlijk wel de programmatuur aanpassen. In dit geval lijkt het 
raadzaam. Wanneer men met POKE-opdrachten de wijzigingen in het beeldscherm aan- 
brengt, wordt het plaatje veel rustiger. 
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Programma 


10 REM *** ZET IN ALFABETISCHE VOLGORDE *** 

20 DIM M(7), B$(7) 

30 RANDOM :REM DIT STATEMENT KAN WORDEN WEGGELATEN 

4© GOTO 1140 
50 s 

60 REM *** INITIALIBEREN *** 

7© A$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

8© X * (N + l)/2 
90 FOR I = 1 TO 7 
10© A$< I > = ”” 

110 IF <N + l)/2 - INT((N + 1)/2) « 0 THEN 140 

120 Y * (N + 2)/2 

130 X = INT(RND<0> * Y + 1) 

140 FOR J = 1 TO X 

150 A = INT(RND(0) * 26 + 1) 

160 B$ * LEFTS<A$? A) 

170 AS < I ) « AS(I> + RIGHT $(BS ?1) 

180 NEXT J 

190 IF I = 1 THEN 270 

200 H = 0 sREM STUURVARIABELE 

210 FOR J = 1 TO I - 1 

22© IF AS(I) <> AS(J) THEN 250 

230 H = 1 

240 J = I 

250 NEXT J 

260 IF H = 1 THEN 100 
270 BS ( I ) = A*(I) 

280 NEXT I 

290 REM ** MAT BS SORTEREN ** 

300 FOR I = 7 TO 2 STEP -1 
310 FOR J - 1 TO I 
320 IF BSC I) :> BS < J) THEN 360 
330 AS - BSC I) 

340 BS < I) = BS(J) 

350 BS(J) = AS 
360 NEXT J 
370 NEXT I 

380 B = 1 : REM BEURT-TELLER 

390 RETURN 
400 2 

410 REM *** UITVOER *** 

420 CLS sREM SCHERM WISSEN 

43© PRINT "*** ZET IN ALFABETISCHE VOLGORDE ***" 

440 PRINT "NIVEAU s"5N 
450 PRINT "BEURT !"?B 
460 PRINT 
470 PRINT "VAK "5 
480 FOR I = 1 TO 7 

490 X = : 8 + I * 4 - 3 2 REM TAB-POSITIE 

500 PRINT TABCX) I 5 
510 NEXT I 
520 PRINT 

530 PRINT TABO) " !-!-!-!-!-!-!-! " 
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540 PRINT "LETTERS"; 

550 FOR I = 1 TO 7 

560 X = 8+ I*4-3 SREM TAB-POSITIE 
570 PRINT TAB(X) At(I); 

580 NEXT I 
590 PRINT 

600 PRINT TAB(8) "!-!-!-!-'-'-' 

610 RETURN 
620 : 

630 REM *** INVOER *** 

640 PRINT "KLAAR = 0 " 

650 PRINT "WISSEL VAK 
660 INPUT X 
670 IF X = 0 THEN 810 
680 X ■ INT(X) 

690 IF X < 1 OR X > 7 THEN 650 

700 PRINT "MET VAK 

710 INPUT Y 

720 IF Y = 0 THEN 810 

730 Y = INT(Y) 

740 IF Y < 1 OR Y > 7 THEN 700 
750 REM ** VERWERKING ** 

760 B = B + 1 :REM BEURTEN-TELLER 

770 REM * WISSELEN * 

780 At = At < X) 

790 At(X) = At(Y) 

800 At< Y> = At 
810 RETURN 
820 : 

830 REM *** CONTROLE *** 

840 H = 1 
850 At = "GOED" 

860 FOR 1=2 TO 7 

870 IF At(I—1) < At(I) THEN 910 

880 At = "FOUT" 

890 H = 0 
900 I = 7 
910 NEXT I 
920 RETURN 
930 : 

940 REM *** RESULTAAT *** 

950 GOSUB 420 

960 IF H = 1 THEN 1050 

970 N = N - 1 

980 IF N => 1 THEN 990 

990 FOR I = 1 TO 7 

1000 X=8+I*4—3 

1010 PRINT TAB(X) Bt(I); 

1020 NEXT I 
1030 PRINT 

1040 PRINT TAB(10) "MOET HET ZIJN !'* 

1050 PRINT "HET ANTWOORD IS “;At;" !" 

1060 IF H <> 1 THEN 1110 
1070 PRINT "IN "SB;"BEURTEN." 

1080 N = N + 1 
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1090 IF N < 6 THEN 1110 
1100 N = 5 
1110 RETURN 
1120 : 

1130 REM **** STUURMODULE **** 

1140 N = 1 :REM STARTNIVEAU 

1150 REM *** INITIALISEREN *** 

1160 GOSUB 70 

1170 REM *** UITVOER *** 

1180 GOSUB 420 

1190 REM *** INVOER *** 

1200 GOSUB 640 

1210 IF X <> 0 AND Y <> 0 THEN 1180 
1220 REM *** CONTROLE *** 

1230 GOSUB 840 

1240 REM *** RESUL.TAAT *** 

1250 GOSUB 950 

1260 PRINT "WIL JE DOORGAAN <JA/NEE> "? 
1270 INPUT A« 

1280 IF LEFT$<A*»1> = "J" THEN 1160 
1290 END 


Voorbeeld 


*** ZET 

IN 

ALFABETISCHE 

VOLGORBE 

*** 

NIVEAU : 

1 






BEURT s 

1 






VAK 

1 

i 

z 

3 

4 

5 6 

7 

LETTERS 

E 

i_ 

p 

H 

Q 

T N 

B 

KLAAR = 

0 






WISSEL VAK 

2 1 





NET VAK 


2 7 





*** ZET 

IN 

ALFABETIS 

CHE 

VOLGORDE 

*** 

NIVEAU : 

1 






BEURT s 

Z 






VAK 

1 

i_ 


3 

4 

5 6 

7 

LETTERS 

B 

P 

H 

Q 

T N 

E 

KLAAR = 

0 






WISSEL VAK 

2 2 





MET VAK 


2 7 





*** ZET 

IN 

ALFABETISCHE 

VOLGORDE 

*** 

NIVEAU : 

1 






BEURT 2 

5 






VAK 

1 

i_ 


3 

4 

5 6 

7 

LETTERS 

B 

i_ 

E 

H 

P 

N T 

Q 


B E H N P Q T 

MOET HET ZIJN ! 


HET ANTWOORD IS FOUT ! 
WIL JE DOORGAAN <JA/NEE> 


NEE 










2.3 Ontleden 


Op het beeldscherm verschijnt een zin. Een woord of gedeelte van de zin wordt onder- 
streept en tegelijkertijd wordt de vraag gesteld het onderstreepte gedeelte te benoemen. 
Men heeft de keus uit drie antwoorden. Een van de antwoorden is goed! 

Het is de bedoeling dat de speler het goede nummer geeft. Hierna gaat het programma na 
of het gegeven antwoord goed is of niet. Het resultaat wordt op het beeldscherm getoond. 
In het geval van een foutief antwoord wordt het goede antwoord twee keer zo lang ge¬ 
toond. 

Het aantal zinnen opgeslagen in de interne data file is slechts tien (zie regel 270). Elk 
DATA-statement bestaat uit een zin. Het eerste getal in het DATA-statement geeft aan uit 
hoeveel delen de zin bestaat. Er wordt bewust gesproken over delen en niet over woor- 
den, omdat bij benoemen vaak meer woorden betrokken zijn. 

Bestaat een deel van de zin uit meer woorden dan moet dit gedeelte ingesloten zijn met 
aanhalingstekens. Bij een aantal machines dienen alle tekststrings tussen aanhalings- 
tekens te staan! Het laatste karakter uit een deel is altijd een cijfer tussen 1 en 6. 

De betekenis van de cijfers is als voIgt: 

1 = onderwerp 

2 = gezegde 

3 = meewerkend voorwerp 

4 = lijdend voorwerp 

5 = bijwoordelijke bepaling 

6 = bijvoeglijke bepaling 

Hieronder voIgt een voorbeeld van een zin, die zou kunnen worden toegevoegd. 

Stel men neemt de zin: 

’Jan eet zijn brood.’ 

JAN is het onderwerp van de zin. EET is het gezegde en ZIJN BROOD is lijdend voorwerp. 
Volgens bovenstaande tabel is het codenummer voor het onderwerp 1, gezegde is 2 en 
lijdend voorwerp is 4. De hele zin bestaat daarbij uit drie delen. De DATA-regel van de zin 
’Jan eet zijn brood.’ ziet er dan als voIgt uit: 

regelnr. DATA 3,JAN1,EET2, ’’ZIJN BROOD4” 

Wanneer men regels toevoegt moet men niet vergeten de variabele Z in regel 270 te ver- 
anderen. De variabele Z houdt het aantal opgenomen zinnen bij. Het programma zorgt 
ervoor dat de cijfers achter de delen niet worden afgedrukt. Aan de zin wordt automatisch 
een punt toegevoegd. 

Beschikt men over een kleurencomputer dan kan men het programma zodanig wijzigen 
dat hette ontleden gedeelte een andere kleur krijgt. Wanneer men geen kleurencomputer 
heeft maar met een ’reversed field' kan werken, zou men dit kunnen toepassen. 
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Programma 


10 REM *** ONTLEDEN *** 

20 RANDOM : REM DIT STATEMENT MAG VERVAL-LEN 

30 DIM A$<15)» B$<6>» D<3) 

40 DATA 3» "DE HOND1"? L00PT2i"OP BTRAAT5" 

IK1»GEEF2iJ0UW3» "EEN BRIEF4" 

”DE POES1"j LIKT2» "ZIJN VACHT4" 

HET1 i REGENT2? "DE HELE DAG5" 

"DE BLOEMEN1"»LIGGEN2* "OP STRAAT5" 

"DE DOOS1"> ZIT2» "VOL R0MMEL4" 

IK1» GEEF2* "DE H0ND3"» "EEN KLUIF4” 

JE1> HEBT2»"EEN LEUKE JURK4" 

"DE TAS1". STAAT2* "OP TAFEL5" 

"DIE TAFEL1"» STAAT2* "OP Z0LDER5" 


3» 

3 ) 

3 ) 


50 DATA 4? 

60 DATA 3? 

70 DATA 3» 

B0 DATA 3» 

90 DATA 3, 

100 DATA 4? 

110 DATA 
120 DATA 
130 DATA 
140 GOTO 1090 
150 s 

160 REM *** INITIALISEREN *** 
"ONDERWERP" 

"GEZEGDE" 

"MEEWERKEND VOORWERP" 
"LIJDEND VOORWERP" 

"BIJWOORDELIJKE BEPALING" 
"BIJVOEGLIJKE BEPALING" 


0 

0 

10 

1 


1 TO X 


170 B$<1) 

180 B$ (2) 

190 B$<3> 

200 B$<4> 

210 B*<5> 

220 B$(6) 

230 C$ = 

240 T = 0 
250 G 
260 N 
270 Z 
280 P 

290 RETURN 
300 : 

310 REM *** VRAAG OPHALEN *** 

320 X = INT< RND(0> * Z + 1) 

330 RESTORE 
340 FOR I 
350 READ A 
360 FOR J == 1 TO A 
370 READ A$<J> 

380 NEXT J 
390 NEXT I 

400 L = INT< RND<0) * A + 1) 

410 C == VAL (RIGHT $ (A$ < L)» 1) ) 

420 RETURN 
430 : 

440 REM ** MULTIPLE CHOICE OPBOUWEN ** 

450 FOR I = 1 TO 3 

460 D ( I ) == INT ( RND (0) *6+1) 

470 IF D<I) = C THEN 460 
480 IF I = 1 THEN 550 
490 H - 0 

500 FOR J = 1 TO I - 1 
510 IF D(I) <> D(J) THEN 530 
520 H = 1 
530 NEXT J 


:REM TOTAAL AANTAL VRAGEN 
:REM AANTAL GOED 
:REM PERC. GOED 
:REM AANTAL ZINNEN 
:REM STUURVARIABELE 


:REM DATAPOINTER VOORAAN 
REM AANTAL STRINGS 


\ 







540 IF H = 1 THEN 460 
550 NEXT I 

560 REM ** GOEDE ANTWOORD PLAATSEN ** 

570 P = INT(RND(0) *3+1) 

580 DIP) = C 
590 RETURN 
600 : 

610 REM *** UITVOER *** 

620 CLS :REM SCHERM WISSEN 

630 PRINT "*** ONTLEDEN *** 

640 PRINT 

650 PRINT “BEURT :";T+1 

660 PRINT "GOEDE ANTWOORDEN :";G 
670 PRINT "PERCENTAGE GOED :“;N 
680 PRINT 
690 R = 0 

700 IF P = 0 THEN 840 

710 FOR I ■ 1 TO A 

720 Y = LEN(A* < I)) - 1 

730 IF I >= L THEN 750 

740 R = R + Y + 1 

750 PRINT LEFT*<A*<I)»Y)5" "5 

760 NEXT I 

770 PRINT 

780 Y = LEN(A$(L)) - 1 
790 PRINT TAB(R)LEFT* < C$» Y) 

800 PRINT "WAT IS : “5LEFT*(A*(L),Y) 

810 FOR I = 1 TO 3 

820 PRINT TAB!10) I?" : “;B*(D(I>) 

830 NEXT I 
840 RETURN 
850 : 

860 REM *** INVOER/ VERWERKING *** 

870 PRINT "WAT IS HET GOEDE ANTWOORD CSTOP = 0> »; 
880 INPUT 0 

890 IF S = 0 THEN 1050 

900 IF Q < 0 OR Q > 3 THEN 870 

910 H = 0 

920 D* = "-> FOUT <=" 

930 IF Q <> P THEN 960 
940 H = 1 

950 D* - "=> GOED <=" 

960 PRINT "HET ANTWOORD WAS NR.";P;B*(C) 

970 PRINT D* 

980 REM ** WACHTLUS ** 

990 FOR 1=1 TO 250 * (2 - H) 

1000 NEXT I 

1010 REM ** RESULTAAT VERWERKING ** 

1020 G = G + H 
1030 T = T + 1 

1040 N = INTKG/T) * 100 + 0.5) 

1050 RETURN 
1060 : 

1070 REM **** STUURMODULE **** 

1080 REM *** INITIALISEREN *** 
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Voorbeeld 


1090 GOSUB 170 

1100 REM *** VRAAG OPHALEN *** 

1110 GOSUB 320 

1120 REM *** MULTIPLE CHOICE OPBOUWEN *** 

1130 GOSUB 450 

1140 REM *** UITVOER *** 

1150 GOSUB 620 

1160 REM *** INVOER/ VERWERKING *** 

1170 GOSUB 870 

1180 IF G <> 0 THEN 1110 

1190 P = 0 

1200 T = T - 1 

1210 GOSUB 620 

1220 END 


*** ONTLEDEN *** 

BEURT : 1 

GOEDE ANTWOORDEN : 0 
PERCENTAGE GOED : 0 

JE HEBT EEN LEUKE JURK 

WAT IS : JE 

1 : GEZEGDE 

2 : ONDERWERP 

3 : MEEWERKEND VOORWERP 

WAT IS HET GOEDE ANTWOORD <STOP = 0> 2 

HET ANTWOORD WAS NR. 2 ONDERWERP 

=> GOED <= 


*** ONTLEDEN *** 

BEURT : 2 

GOEDE ANTWOORDEN : 1 
PERCENTAGE GOED : 100 

HET REGENT DE HELE DAG 


WAT IS : DE HELE DAG 

1 : GEZEGDE 

2 : BIJWOORDELIJKE BEPALING 

3 : BIJVOEGLIJKE BEPALING 

WAT IS HET GOEDE ANTWOORD <STOP = 0> 2 

HET ANTWOORD WAS NR. 2 BIJWOORDELIJKE BEPALING 
~> GOED <— 





2.4. Benoemen 


Behalve aan (redekundig) ontleden wordt op school ook aan benoemen (taalkundig ontle- 
den) gedaan. Het is de bedoeling werkwoorden, voorzetsels, bezittelijke voornaamwoor- 
den enz. te herkennen. Dit programma is op de zelfde manier opgebouwd als ontleden. Er 
wordt een zin op het beeldscherm geplaatst en er wordt een woord onderstreept. Aan de 
hand van een ’multiple choice’ wordt gevraagd wat het onderstreepte woord is. 

Na invoer wordt het goede antwoord op het beeldscherm gezet en meegedeeld of het 
ingevoerde antwoord goed was. Mocht blijken dat de tekst in het antwoord te lang of te kort 
blijft staan, dan kan men dit aanpassen door een wijziging aan te brengen in de wachtlus. 

In de interne data-file zijn slechts elf zinnen opgenomen (zie regel 320 in het programma) 
de opbouw van de DATA-regels is eenvoudig, zodat men zelf dit aantal nog behoorlijk kan 
uitbreiden. Eerst wordt aangegeven uit hoeveel woorden een zin bestaat. Daarna wordt 
de zin opgenomen, waarbij elk woord wordt gescheiden van het andere woord door een 
komma. De punt hoeft niet opgenomen te worden, deze wordt er door het programma zelf 
achter gezet. Aan elk woord wordt een cijfer vastgeplakt, dat aangeeft wat voor een soort 
woord het is. De codes vindt men in onderstaande tabel. 

codes bij benoemen: 

1 werkwoord 

2 zelfstandig naamwoord 

3 bijvoeglijk naamwoord 

4 persoonlijk voornaamwoord 

5 lidwoord 

6 bijwoord 

7 aanwijzend voornaamwoord 

8 bezittelijk voornaamwoord 

9 voorzetsel 

Hieronder voIgt een voorbeeld hoe een zin wordt omgezet in een DATA-regel. 

’Piet heeft een vlek naast zijn bord.’ 

De zin bestaat uit zeven woorden. ’Piet’ is een zelfstandig naamwoord (2), 'heeft' is een 
werkwoord (1), ’een’ is een lidwoord (5), ’vlek' is een zelfstandig naamwoord (2), ’naast’ is 
een voorzetsel (9), ’zijn’ is een bezittelijk voornaamwoord (8) en tenslotte ’bord’ is een 
zelfstandig naamwoord (2). In een DATA-regel ziet dit er als voIgt uit: 

regelnr DATA 7,PIET2,HEEFT1,EEN5,VLEK2,NAAST9,ZIJN8,BORD2 

Men moet niet vergeten regel 320 aan te passen met het aantal zinnen. Het aantal zinnen 
is slechts beperkt door de geheugenruimte van de gebruikte computer. 

Beschikt men over kleurencomputer dan kan men het onderstrepen van het te benoemen 
woord ook vervangen door het te benoemen woord een andere achtergrondkleur te ge- 
ven. Bij een computer waarmee men met een reversed field kan werken, dat wil zeggen in 
plaats van een witte letter op een zwarte achtergrond zwarte letters op een witte achter- 
grond, kan men op zo’n manier aangeven welk woord benoemd moet worden. 
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Programma 


10 REM *** BENOEMEN *** 

20 RANDOM : REM DIT STATEMENT MAG VERVALL.EN 

30 DIM A$<15>» B$<9>» D<3) 

40 DATA 5) IK41GEEF1 i DE5»P0ES2> MELK2 
50 DATA 5»EEN5»GR0TE3* FIETS2)IS1»NIETS6 
60 DATA 5»DIE7»J0NGEN2»DRAAGT1>ZIJNB»TAS2 
70 DATA 6 > HET5 1 PAARD2 1 STAAT1»IN9» DE5 1 STAL2 


80 DATA 5 s EEN5» GR0ENE3) PLANTS: i BLOEIT1» NOOIT6 
90 DATA 6» DEZE7)H0ND2» HEEFT1» EEN5? M00IE3» STAART2 
100 DATA 6»ZIJN8»B0EK2»STAAT1»IN9*DE5.KAST2 
DATA 5 i EEN5 jPLAATS2»IN9,DE5iSCH0UWBURG2 
DATA 4,NERGENS6* STAAT1?DE5 1 WEG2 
DATA 6 , ZIJN8.M0EDER2*KENT1»HET5»VERHAAL2*00K6 
DATA 9»DE5» LEZER2* VAN9?DE5>KRANT2*MOET1»DE5 
DATA PUZZEL2)RADEN1 
GOTO 1140 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


REM *** 
B*(1) = 
B* < 2 > * 
B$<3> a 
B*<4> a 
B$<5> = 
B* < 6) « 
B$(7) a 
B*<8> = 
B*<9> a 
C$ a 


INITIALISEREN *** 

"WERKWOORD" 

"ZELFSTANDIG NAAMWOORD" 

"BIJVOEGLIJK NAAMWOORD" 

"PERSOONLIJK VOORNAAMWOORD" 
"LIDWOORD" 

"BIJWOORD" 

"AANWIJZEND VOORNAAMWOORD" 

"BEZITTELIJK VOORNAAMWOORD" 
"VOORZETSEL" 


0 

0 

0 

11 

1 


:REM TOTAAL AANTAL VRAGEN 
:REM AANTAL GOED 
sREM PERC. GOED 
:REM AANTAL ZINNEN 
sREM STUURVARIABELE 


RETURN 


350 : 

360 REM *** VRAAG OPHALEN *** 

370 X a INT(RND<0> * Z + 1) 

380 RESTORE 2 REM DATAPOINTER VOORAAN 

390 FOR I = 1 TO X 

400 READ A 2 REM AANTAL STRINGS 

410 FOR J = l TO A 
420 READ A*(J) 

430 NEXT J 
440 NEXT I 

450 L = INT(RND<0) * A + 1) 

460 C = VAL<RIGHT*<A*(L)?1)) 

470 RETURN 
480 2 

490 REM ** MULTIPLE CHOICE OPBOUWEN ** 

500 FOR I a i TO 3 

510 D(I) a INT(RND<0) * 6 + 1) 

520 IF D(I) a C THEN 510 
530 IF I a i THEN 600 






540 H » 0 

550 FOR J = 1 TO I - 1 
560 IF D(I) <> D < J) THEN 580 
570 H - 1 
580 NEXT J 

590 IF H = 1 THEN 510 
600 NEXT I 

610 REM ** GOEDE ANTWOORD PLAATSEN ** 

620 P = INT(RND < 0) *3+1) 

630 D(P) = C 
640 RETURN 
650 : 

660 REM *** UITVOER *** 

670 CLS :REM SCHERM WISSEN 

680 PRINT "*** BENOEMEN *** 

690 PRINT 

700 PRINT "BEURT :";T+1 

710 PRINT "GOEDE ANTWOORDEN :";G 
720 PRINT "PERCENTAGE GOED :";N 
730 PRINT 
740 R = 0 

750 IF P = 0 THEN 890 

760 FOR I = 1 TO A 

770 Y = LEN < AS < I)) - 1 

780 IF I >- L. THEN 800 

790 R = R + Y + 1 

800 PRINT LEFTS<AS(I>,Y);" "; 

810 NEXT I 
820 PRINT ».» 

830 Y = LEN(AS<L)) - 1 
840 PRINT TAB < R)LEFTS < CS» Y) 

850 PRINT "WAT IS : "5 LEFTS < AS(L)» Y) 

860 FOR I = 1 TO 3 

870 PRINT TAB(10) I;" : ";BS(D(I)) 

880 NEXT I 
890 RETURN 
900 : 

910 REM *** INVOER/ VERWERKING *** 

920 PRINT "WAT IS HET GOEDE ANTWOORD CSTOP = 0 
930 INPUT 0 

940 IF (3 = 0 THEN 1100 

950 IF 6! < 0 OR 0 > 3 THEN 920 

960 H = 0 

970 DS - "=> FOUT <=" 

980 IF <3 <> P THEN 1010 
990 H = 1 

1000 DS = "=> GOED <-" 

1010 PRINT "HET ANTWOORD WAS NR."5P;BS(C) 

1020 PRINT DS 

1030 REM ** WACHTLUS ** 

1040 FOR I = 1 TO 250 * ‘<2 - H) 

1050 NEXT I 

1060 REM ** RESULTAAT VERWERKING ** 

1070 G = G + H 
1080 T = T + 1 
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1090 N = INTUG/T) * 100 + 0.3) 

1100 RETURN 
1110 : 

1120 REM **** STUURMODULE *•*** 

1130 REM *** INITIALISEREN *** 

1140 GOSUB 190 

1150 REM *** VRAAG OPHAL.EN *** 

1160 GOSUB 370 

1170 REM *** MULTIPLE CHOICE OPBOUWEN *** 

1180 GOSUB 500 

1190 REM *** UITVOER *** 

1200 GOSUB 670 

1210 REM *** INVOER/ VERWERKING *** 

1220 GOSUB 920 

1230 IF Q <> 0 THEN 1160 

1240 P = 0 

1250 T = T - 1 

1260 GOSUB 670 

1270 END 






Voorbeeld 

*** BENOEMEN *** 


BEURT : 1 

GOEDE ANTWOORDEN : 0 
PERCENTAGE GOED : 0 

HET PAARD STAAT IN DE STAL . 

WAT IS : HET 

1 : ZELFSTANBIG NAAMWOORD 

2 : LIDWOORD 

3 : BIJVOEGLIJK NAAMWOORD 

WAT IS HET GOEDE ANTWOORD <STOP = 0> 2 

HET ANTWOORD WAS NR. 2 LIDWOORD 

=> GOED <= 


*** BENOEMEN *** 

BEURT : 2 

GOEDE ANTWOORDEN : 1 
PERCENTAGE GOED : 100 

DIE JONGEN DRAAGT ZIJN TAS . 

WAT IS : ZIJN 

1 : PERSOONLIJK VOORNAAMWOORD 

2 : BEZITTELIJK VOORNAAMWOORD 

3 : ZELFSTANDIG NAAMWOORD 

WAT IS HET GOEDE ANTWOORD CSTOP = 0> 2 

HET ANTWOORD WAS NR. 2 BEZITTELIJK VOORNAAMWOORD 
~ GuEE) “ 


*** BENOEMEN *** 

BEURT s 5 

GOEDE ANTWOORDEN : 3 
PERCENTAGE GOED : 75 

EEN GROENE PLANT BLOEIT NOOIT . 

WAT IS : PLANT 

1 : PERSOONLIJK VOORNAAMWOORD 

2 s ZELFSTANDIG NAAMWOORD 

3 : BIJVOEGLIJK NAAMWOORD 

WAT IS HET GOEDE ANTWOORD CSTOP = 0> 2 

HET ANTWOORD WAS NR. 2 ZELFSTANDIG NAAMWOORD 
=> GOED <= 


28 





2.5 Algemeen leerprogramma 

Uit het hoofd leren is vaak een kwestie van constant blijven herhalen. Overhoren is de 
enige manier om na te gaan of men zijn zaakjes kent. Dit programma is speciaal ontwik- 
keld om dit stampwerk en het overhoren te vergemakkelijken. Tegelijkertijd heeft het als 
voordeel dat men ook weet hoe men de zaken schrijft, die overhoord worden. 



Het programma stelt door elkaar twee verschillende vragen. In dit geval is de interne data 
file gevuld met vragen over aardrijkskunde. Het gaat hierbij om de vraag ’Welk land hoort 
bij...’ en ’Wat is de hoofdstad van...’. Het programma selecteert een paar gegevens en een 
vraag. De gebruiker wordt verzocht het antwoord op de vraag te geven. Blijkt het antwoord 
tout te zijn, dan onthoudt het programma bij welk paar gegevens een tout is gemaakt. 
Wordt er een nieuwe vraag gesteld, dan zal de computer geneigd zijn vragen te stellen 
waarop eerder een foutief antwoord was verstrekt. In totaal onthoudt de computer 10 fou- 
tieve antwoorden. Wordt een vraag, die eerst tout beantwoord was, nu goed beantwoord, 
dan wordt deze verwijderd uit de foutlijst. 

Het is maar toevallig dat de interne data-file gevuld is met aardrijkskunde. Hij zou ook 
gevuld kunnen zijn met Engelse woordjes. Hiertoe moet men de inhoud van de interne 
data-file wijzigen. Men kopieert het programma en wist de regels 20 t/m 90. Men begint 
met in regel 20 op te nemen wat het onderwerp is. In dit geval Engels. In regel 30 neemt 
men de eerste vraag op. Bijvoorbeeld: ’Wat is het Engelse woord voor’. Op regel 40 neemt 
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men de tweede vraag op 'wat is het Nederlandse woord voor’. In DATA-statements gaat 
dit er als voIgt uitzien: 

20 DATA ’ENGELS’ 

30 DATA ’WAT IS HET ENGELSE WOORD VOOR’ 

40 DATA ’WAT IS HET NEDERLANDSE WOORD VOOR’ 

Hierna moet men de combinatie van woorden gaan opnemen. In dit programma kunnen 
dit maximaal 20 paren zijn. Het laatste paar moet <STOP>,<STOP> zijn en moet ook zo 
worden ingetikt. 

50 DATA GARDEN,TUIN, HOUSE,HUIS, AIRPLANE,VLIEGTUIG 
60 DATA. 

90 DATA <STOP>,<STOP> 

Men moet er op letten dat men regel 90 niet vergeet. Deze regel zorgt ervoor dat het pro¬ 
gramma weet dat het aan het einde is gekomen van de interne data-file. Vergeet men 
<STOP>,<STOP> in de laatste DATA-regel te zetten dan zal het programma stuklopen. 
Wanneer men vindt dat men te weinig vragen kan stellen, kan de dimensie van matrix A$ 
worden vergroot. De matrix staat in het programma gedimensioneerd op 20 bij 2. Men kan 
dus maximaal 20 paren gegevens opnemen. Wil men meer paren gegevens opnemen 
dan zal men het aantal regels in matrix A$ moeten uitbreiden. Wanneer men in regel 20 
van het programma A$ (20,2) wijzigt in A$ (40,2) dan kan men 40 paren Engelse woorden 
opnemen. 

Programma 

10 REM *** ALGEMEEN LEERPROGRAMMA *** 

20 DATA AARDRIJKSKUNDE 

30 DATA "WAT IS DE HOOFDSTAD VAN" 

40 DATA "WELK LAND HOORT BIJ" 

50 DATA AMSTERDAM* NEDERLAND* BRUSSEL? BELGIE 

60 DATA L.ONDEN* ENGELAND* BONN* DUITSLAND* WAR5CHAU* POLEN 

70 DATA WENEN* OOSTENRIJK» BERN* ZWITSERLAND 

80 DATA PARIJS,FRANKRIJK,ROME,ITALIE 

90 DATA <STOP>,<STOP> 

100 DIM A$(20,2), B$(2)* C(10) 

110 RANDOM : REM DIT STATEMENT MAG VERVALLFN 

120 GOTO 1150 
130 : 

140 REM *** LEZEN INTERNE DATAFILE *** 

150 RESTORE 

160 READ T$* B$< 1 ) * B*<2> 

170 X = 0 :REM HULPTELLER 

180 X = X + 1 

190 READ A$<X,1), A$< X,2) 

200 IF A$(X,1) - "<STOP>"THEN 230 

210 N = X :REM OPGAVENTELLER 

220 IF N < 20 THEN 180 

230 RETURN 

240 : 

250 REM *** INITIALISEREN *** 

260 REM ** FOUTMATRIX SCHOONVEGEN ** 
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270 FOR I 8 1 TO 10 


280 C <I) = 0 
290 NEXT I 


300 REM ** VARIABELEN OP STARTWAARDE ** 


T = 0 
G - 0 
F = 0 
Y " 0 
350 RETURN 
360 : 


310 

320 

330 

340 


:REM TOTAAL VRAGEN 
:REM AANTAL GOEDEN 
:REM FOUTEN IN FOUTTABEL 
:REM GOEDPERC. 


370 REM *** VRAAG OPHALEN *** 


3B0 

J = 

INT(RND<0) * 2 

+ 

1 ) 

390 

H * 

INT(RND(0) * N 

+ 

1 ) 

400 

IF 

RND(0) > 0.6 OR 

F 

* 0 THEN 

410 

H * 

INT(RND(0) * F 

+ 

1 ) 

420 

H = 

C (H) 



430 

IF 

T = 0 THEN 450 



440 

Y s 

INT((G/T)*1000 

+ 

0.5)/ 10 


450 0$ - A$ < H> 1 ) 

460 2% = A$ < H» 2) 

470 IF J = 1 THEN 500 
480 6!$ = A$(H>2) 

490 2% - A$(H>1) 

500 RETURN 


510 : 

520 REM *** UITVOER *** 

530 CLS :REM SCHERM WISSEN 

540 PRINT "*** ALGEMEEN L.EERPROGRAMMA ***'' 
550 PRINT "ONDERWERP :"?T$ 

560 PRINT "BEURT 5T + 1 

570 PRINT "PERC. GOED :" ;Y 

580 PRINT 

590 PRINT "STOPPEN IS : ’STOP’+<RETURN>" 
600 print B*(J>;" ";Z$;" “5 
610 RETURN 


620 : 

630 REM *** INVOER/VERWERKING *** 

640 INPUT E$ 

650 2 - 3 

660 IF E* = "STOP" THEN 790 

670 T » T + 1 :REM BEURT + 1 

680 Z - 0 

690 IF E$ <> 0$ THEN 710 
700 Z = 1 
710 G = G + Z 

720 ON Z + 1 GOSUB 970 >820 

730 PRINT TAB(10) R$ 

740 PRINT "HET ANTWOORD WAS :";Q* 

750 REM ** WACHTLUS ** 

760 FOR I = 1 TO 250 * (2 - Z) 

770 NEXT I 

780 Y “ ((G/T) * 1000 + 0.5)/10 
790 RETURN 
800 : 

810 REM *** ANTWOORD WAS GOED *** 


31 




820 R$ = ■■> GOED < = " 

830 IF F = 0 THEN 1010 
840 FOR I a 1 TO F 
850 IF H <> C(I) THEN 930 
860 FOR J * I TO F - 1 
870 C<J> = C(J + 1) 

880 NEXT J 

890 I = F !REM LUS OP EINDWAARDE 

900 F a p - 1 

910 IF F >« 0 THEN 930 

920 F = 0 

930 NEXT I 

940 RETURN 

950 : 

960 REM *** ANTWOORD WAS FOUT *** 

970 R$ = "=> FOUT <=" 

980 IF F > 9 THEN 1010 
990 F = F + 1 
1000 C(F) a h 
1010 RETURN 
1020 : 

1030 REM *** RESULTAAT *** 

1040 CLS 
1050 PRINT 
1060 PRINT 
1070 PRINT 
1080 PRINT 
1090 PRINT 
1100 PRINT 
1110 RETURN 
1120 : 

1130 REM **** STUURMODULE ****• 

1140 REM *** INTERNE FILE LEZEN *** 

1150 GOSUB 150 

1160 REM *** INITIALISEREN *** 

1170 GOSUB 270 

1180 REM *** VRAAG OPHALEN *** 

1190 GOSUB 380 
1200 REM *** UITVOER *** 

1210 GOSUB 530 

1220 REM *** INVOER/VERWERKING *** 

1230 GOSUB 640 
1240 IF Z < 3 THEN 1190 
1250 REM *** RESULTAAT *** 

1260 GOSUB 1040 
1270 END 

Voorbeeld 

*** ALGEMEEN LEERPROGRAMMA *** 

ONDERWERP :AARDRIJKSKUNDE 
BEURT : 1 

PERC. GOED : 0 


*** ALGEMEEN LEERPROGRAMMA ***" 


"ONDERWERP :";T$ 

"TOTAAL AANTAL BEURTEN :"’T 
"TOTAAL GOED BEANTWOORD :";G 
"PERCENTAGE GOED :";Y 
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STOPPEN IS s ’STOP 7 +<RETURN> 

WAT IS DE HOOFDSTAD VAN ITALIE ROME 
=> GOED <= 

HET ANTWOORD WAS sROME 


*** ALGEMEEN LEERPROGRAMMA *** 
ONDERWERP :AARDRIJKSKUNDE 
BEURT : 2 

PERC. GOED : 100 

STOPPEN IS s 7 STOP 7 +<RETURN> 

WELK LAND HOORT BIJ BERN ZWITSERLAND 
«> GOED <> 

HET ANTWOORD WAS sZWITSERLAND 


*** ALGEMEEN LEERPROGRAMMA *** 
ONDERWERP :AARDRIJKSKUNDE 
BEURT : 3 

PERC. GOED : 100 

STOPPEN IS : 7 STOP 7 +<RETURN> 

WELK LAND HOORT BIJ WENEN OOSTENRIJK 
= > GOED < : = 

HET ANTWOORD WAS sOOSTENRIJK 


*** ALGEMEEN LEERPROGRAMMA *** 
ONDERWERP :AARDRIJKSKUNDE 
BEURT s 4 

PERC. GOED : 100 

STOPPEN IS : 7 STOP 7 +<RETURN> 

WELK LAND HOORT BIJ WARSCHAU POLEN 
*> GOED <« 

HET ANTWOORD WAS sPOLEN 


*** ALGEMEEN LEERPROGRAMMA *** 
ONDERWERP sAARDRIJKSKUNDE 
BEURT s 5 

PERC. GOED : 100 

STOPPEN IS : 7 STOP 7 +<RETURN> 

WELK LAND HOORT BIJ BRUSSEL STOP 


*** ALGEMEEN LEERPROGRAMMA *** 
ONDERWERP :AARDRIJKSKUNDE 

TOTAAL AANTAL BEURTEN : 4 
TOTAAL GOED BEANTWOORD : 4 
PERCENTAGE GOED : 100 






2.6 Welk cijfer is anders? 

Evenals het programma ’Welke letter is anders?’, is ook dit programma ontwikkeld voor 
kleuters. Op het beeldscherm worden negen cijfers gezet. Acht cijfers zijn hetzelfde, een 
cijfer wijkt af. Ook hier is het de bedoeling dat het afwijkende cijfer wordt herkend. Het 
afwijkende cijfer wordt ingevoerd in het programma en het programma gaat na of het ant- 
woord goed was. Er is voor gezorgd dat het te herkennen cijfer niet steeds op dezelfde 
plaats staat. Dat zou het programma al te gemakkelijk maken. Men moet de kleuter wel 
goed uitleggen wat de bedoeling is van het programma. 

Ook bij dit programma wordt de score bijgehouden. Veranderingen in het programma zijn 
eenvoudig aan te brengen. Een aantal suggesties is reeds gegeven bij het programma 
'Welke letter is anders’. Heeft men een kleurencomputer dan kan men het vak van het 
afwijkende cijfer na het antwoord een andere kleur geven en dan het afwijkende cijfer 
ernaast in tweemaal de grootte. Beschikt men over een computer waarbij men de achter- 
grond van een karakter kan wisselen van zwart naar wit (reversed field) dan kan men op 
die manier de plaats van het afwijkende cijfer na het antwoord aangeven. 

Na iedere vraag wordt het gehele plaatje opnieuw opgebouwd. Het zou aanbeveling ver- 
dienen de gegevens in het plaatje te POKEn. Het geheel wordt er wel een stuk rustiger 
door. 

Programma 

10 REM *** WELK CIJFER IB ANDERB *** 

20 RANDOM 5 REM DIT STATEMENT MAG VERVALLEN 

30 GOTO 630 
40 s 

50 REM *** INITIALIBEREN *** 

60 G * 0 sREM GOEDE ANTWOORDEN TELLER 

70 T « 10 s REM TOTAAL AANTAL VRAGEN 

80 A* = "1234567890 u 
90 RETURN 
100 s 

110 REM *** NIEUWE VRAAG *** 

120 A = INT< RND<0) * 10 + 1) 

130 B = INT< RND<0) * 10 + 1) 

140 IF A = B THEN 120 
150 B* * LEFT$(A$*A) 

160 B* = RIGHT*<B*>1) 

170 C* ==•* LEFT* (A$?B) 

180 C* = RIGHT*(C*?1) 

190 P = I NT<RND(0) * 9 + 1) 

200 RETURN 
210 2 

220 REM *** UITVOER *** 

230 CLS 2 REM SCHERM WISSEN 

240 PRINT "*** WELK CIJFER IS ANDERS ***" 

250 PRINT "AANTAL OPGAVEN. 2”;X 

260 PRINT "AANTAL GOEDE ANTWOORDEN..2"5G 
270 PRINT 

280 FOR I « 0 TO 2 
290 PRINT TAB(10)5 
300 FOR J a i TO 3 
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P THEN 340 


310 D$ = B$ 

320 IF I * 3 + J <> 

330 D* = C$ 

340 PRINT D*5 
350 NEXT J 
360 PRINT 
370 NEXT I 
380 RETURN 
390 : 

400 REM *** INVOER *** 

410 PRINT 

420 PRINT "WELK CIJFER IS ANDERS "; 

430 INPUT DU- 
440 E$ = "NEE " 

450 IF D$ <> C$ THEN 500 

460 H = 0 

470 E$ = "JA " 

480 H = 1 
490 G = G + 1 

500 PRINT E$; "HOOR ! HET WAS " S C* 

510 REM ** WACHTLUS ** 

520 FOR Y = 1 TO 250 * <2 - H) 

530 NEXT Y 
540 RETURN 
550 : 

560 REM *** RESULTAAT *** 

570 A = INT((G / T ) * 1000 + 0.5) / 10 
580 PRINT A; "PROCENT GOEDE ANTWOORDEN." 
590 RETURN 
600 : 

610 REM **** STUURMODULE **** 

620 REM *** INITIALISEREN *** 

630 GOSUB 60 

640 FOR X = 1 TO T 

650 REM *** NIEUWE VRAAG *** 

660 GOSUB 120 

670 REM *** UITVOER *** 

680 GOSUB 230 

690 REM *** INVOER *** 

700 GOSUB 4.10 
710 NEXT X 

720 REM *** RESULTAAT *** 

730 X = 10 
740 GOSUB 230 
750 GOSUB 570 
760 END 





Voorbeeld 

*** WELK CIJFER IS ANDERS *** 

AANTAL OPGAVEN.: 1 

AANTAL GOEDE ANTWOORDEN..: 0 

444 

447 

444 

WELK CIJFER IS ANDERS 7 
JA HOOR ! HET WAS 7 


*** WELK CIJFER IS ANDERS *** 

AANTAL OPGAVEN.: 2 

AANTAL GOEDE ANTWOORDEN..: 1 

611 

111 

111 

WELK CIJFER IS ANDERS 6 
JA HOOR ! HET WAS 6 


*** WELK CIJFER IS ANDERS *** 

AANTAL OPGAVEN.: 3 

AANTAL GOEDE ANTWOORDEN..: 2 

818 

888 

888 

WELK CIJFER IS ANDERS 1 
JA HOOR ! HET WAS 1 
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2.7 Welk getal ontbreekt? 

Dit programma is gebaseerd op het honderdveld, een blad met de getallen van 6§n tot en 
met honderd op een speciale manier gerangschikt. Het programma werkt met automati- 
sche niveaus. Dit heeft als voordeel dat de kleintjes ermee kunnen werken (niveau 1), 
maar ook degenen die al in de tweede klas van de basisschool zitten. 

Het programma zet een aangesloten rij getallen op het beeldscherm en laat daar een getal 
van weg. Het gaat er om dit ontbrekende getal in te vullen. Blijkt het antwoord juist te zijn, 
dan wordt de niveau-indicator met 66n verhoogd. Was het tout dan wordt de indicator met 
§en verlaagd. Het niveau zelf is gelijk aan veelvouden van vijf. Tegelijkertijd bepaalt het 
niveau ook wat voor soort getallenrij er gegenereerd zal worden. Geeft men als antwoord 
een nul (0) dan geeft men daarmee te kennen dat men het programma wenst te verlaten. 
Tenslotte wordt de uiteindelijke score nog op het beeldscherm gezet. Er wordt aangege- 
ven hoeveel vragen er gesteld zijn en hoeveel vragen goed zijn beantwoord. Tevens 
wordt het percentage goed bepaald. 

Beschikt men over een kleurencomputer dan is dit programma bijzonder geschikt om ver- 
anderingen aan te brengen. Het programma geeft met een vraagteken de plaats aan, 
waar een getal ontbreekt. Dit blijkt op sommige computers vrij onduidelijk te zijn. Men kan 
nu voor de duidelijkheid het vak, waar het getal ontbreekt ook nog een andere kleur geven. 
Heeft men een computer, waarbij een karakter kan worden omgedraaid (reversed field), 
zoals de Commodore dan kan men het op die manier aangeven. 


Programma 


10 REM *** WELK GETAL ONTBREEKT *** 


20 DIM A (9 > 

30 RANDOM 
40 GOTO 860 
50 : 

60 REM *** INITIALISEREN *** 


:REM DIT STATEMENT MAG VERVALLEN 


70 

80 


T = 
G = 


90 N = 1 
100 P = 1 
110 K = 0 
120 A* = "! 
130 RETURN 
140 : 


REM AANTAL VRAGEN 
:REM AANTAL GOEDEN 
:REM NIVEAU 
:REM NIVEAUINDI CATIE 
:REM PERC. GOEDEN 


150 REM *** VRAAG OPBOUWEN *** 

160 X = INT(RND(0) * (N - 1) * 10) 
170 FOR I = 1 TO 9 
180 A ( I) - I + X 
190 NEXT I 

200 X = INT < RND(0) *9+1) 

210 A = A(X) 

220 A(X) = 0 
230 IF T ~ 0 THEN 250 
240 K = INT(<G/T) * 1000 + 0.5)/10 
250 RETURN 
260 : 


270 REM *** UITVOER *** 

280 CLS 5 REM SCHERM WISSEN 
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290 PRINT "*** WELK GETAL ONTBREEKT ***" 

300 PRINT "NIVEAU :"5N 

310 PRINT "BEURT 5T + 1 

320 PRINT "PERC. GOEDEN ■"?K 
330 PRINT 

340 PRINT T AB < 5) A$ 

350 FOR I = 0 TO 2 
360 FOR J = 1 TO 3 
370 Y “ I * 3 + J 
3B0 H = J*4 — 3 + 5 
390 IF A (Y) <> 0 THEN 420 
400 PRINT TAB(H)" ?"? 

410 GOTO 430 

420 PRINT TAB<H>A< Y> ? 

430 NEXT J 
440 PRINT 

450 PRINT TAB(5)A$ 

460 NEXT I 
470 RETURN 
480 : 

490 REM *** INVOER / VERWERKING *** 

500 PRINT "WELK GETAL ONTBREEKT CSTOP = 0> "5 

510 INPUT R 

520 IF R = 0 THEN 730 

530 T = T + 1 :REM BEURT + 1 

540 p = p - l 

550 H - 0 :REM HULPVARIABELE 

560 B* = "=> FOUT <=" 

570 IF R <> A THEN 620 
580 B$ = “=> GOED <=" 

590 H = 1 

600 G = G + 1 

610 P = P + 2 

620 IF P < 50 THEN 640 

630 P - 50 

640 IF P > 0 THEN 660 
650 P « 1 

660 N = INT(P/5 + 1) :REM NIVEAU 

670 PRINT TAB(10) B$ 

680 PRINT "HET ANTWOORD WAS "5 A 
690 REM ** WACHTLUS ** 

700 FOR I = 1 TO 250 * <2 - H) 

710 NEXT I 

720 K = INT((G/T) * 1000 + 0.5I/10 
730 RETURN 
740 : 

750 REM *** RESULTAAT *** 

760 CLS :REM SCHERM WISSEN 

770 PRINT "*** WELK GETAL ONTBREEKT ***" 

780 PRINT 

790 PRINT "BEREIKT NIVEAU :";N 

800 PRINT "AANTAL BEURTEN :";T 

810 PRINT "PERC. GOEDEN :"?K 

320 RETURN 
830 : 
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840 REM **** STUURMODULE **** 

850 REM *** INITIAL.ISEREN *** 

860 GOSUB 70 

870 REM *** VRAAG OPBOUWEN *** 

880 GOSUB 160 

890 REM *** UITVOER *** 

900 GOSUB 280 

910 REM *** INVOER / VERWERKING *** 

920 GOSUB 500 

930 IF R <> 0 THEN 880 

940 REM *** RESULTAAT *** 

950 GOSUB 760 
960 END 


Voorbeeld 

*** WELK GETAL ONTBREEKT *** 
NIVEAU : 1 

BEURT : 1 

PERC. GOEDEN : 0 


1 1 - 

1 

1 1 

2 

3 

i i 

4 

i _i „ 

5 

? 

, i__ i 

7 

8 

9 

i_i 

WELK GETAL 

ONTBREEKT 


=> 

GOED <= 

HET ANTWOORD 

WAS 6 


STOP 


0 > 


6 


*** WELK GETAL ONTBREEKT *** 
NIVEAU : 1 

BEURT : 2 

PERC. GOEDEN : 100 



WELK GETAL ONTBREEKT 
=> GOED <= 


HET ANTWOORD WAS 9 


CSTOP 


0> 9 















*** WELK GETAL ONTBREEKT *** 
NIVEAU : 1 

BEURT s 3 

PERC. GOEDEN : 100 



WELK GETAL ONTBREEKT 


GOED 

HET ANTWOORD WAS 7 


CSTOP = 0> 


7 


*** WELK GETAL 

ONTBREEKT *** 

NIVEAU 

1 

BEURT 

4 

PERC. GOEDEN 

100 

i —i i. 

1 2 

3 

4 5 

i_ i _ i. 

6 

_ i 

7 ? 

i i i 

9 

i 

WELK GETAL ONTBREEKT CSTOP = 

=> GOED <= 

HET ANTWOORD WAS 8 

*** WELK GETAL 

ONTBREEKT *** 

NIVEAU 


BEURT 

6 

PERC. GOEDEN 

100 

8 9 

i_ i i 

10 

i 

11 ? 

13 

14 15 

i i i 

16 

i 

WELK GETAL ONTBREEKT CSTOP = 


0> S 


*** WELK GETAL ONTBREEKT *** 

BEREIKT NIVEAU s 2 

AANTAL BEURTEN : 5 

PERC. GOEDEN : 100 
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2.8 Zet de getallen op volgorde 

Qua structuur is dit programma hetzelfde als het programma 'Zet in alfabetische volgor¬ 
de’. Het enige verschil is dat dit programma met getallen werkt, terwijl het eerder genoem- 
de programma met letters werkt. Het programma zet zeven getallen in een willekeurige 
volgorde in de vakken. De speler moet proberen deze getallen in volgorde van laag naar 
hoog te krijgen. Denkt hij er in geslaagd te zijn, dan geeft hij bij de vraag ’Wissel van’ een 
nul. Het programma zal controleren of de rij getallen inderdaad in de goede volgorde staat. 
Blijkt het antwoord niet te voldoen, dan zal de goede rij onder de foutieve rij geplaatst 
worden. Men kan dan zien wat men tout heeft gedaan. 



Bewust is in dit programma geen niveaumechanisme ingebouwd. Dit wordt aan de gebrui- 
ker van het programma overgelaten. Aan de hand van de verschillende programma’s in 
het educatieve deel moet het niet te moeilijk zijn zo’n mechanisme in te bouwen. Men kan 
beginnen met §en- of tweecijferige getallen, daarna tweecijferige getallen en tenslotte 
driecijferige getallen. Het is niet moeilijk dit niveaumechanisme in te bouwen. 

Veel succes! 
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Programma 

10 REM *** ZET DE GETALLEN OP VOLGORDE *** 

20 DIM A(9)) B<9) 

30 RANDOM :REM DIT STATEMENT KAN WORDEN WEGGELATEN 

40 GOTO 990 
50 : 

60 REM *** INITIALISEREN *** 

70 FOR I = 1 TO 9 

80 A(I) - INT(RND<0) * 20 + 1) 

90 IF I = 1 THEN 170 

100 H = 0 :REM STUURVARIABELE 

110 FOR J - 1 TO I - 1 

120 IF A(I) <> A (J) THEN 150 

130 H = 1 

140 J = I 

150 NEXT J 

160 IF H = 1 THEN 80 
170 B(I) = A(I) 

180 NEXT I 

190 REM ** MAT B SORTEREN ** 

200 FOR I = 9 TO 2 STEP -1 
210 FOR J = 1 TO I 
220 IF Bd) > B(J) THEN 260 
230 H = B(I) 

240 Bd) = B(J) 

250 B<J) = H 
260 NEXT J 
270 NEXT I 

280 B = 1 : REM BEURT-TELLER 

290 RETURN 
300 : 

310 REM *** UITVOER *** 

320 CLS :REM SCHERM WISSEN 

330 PRINT "*** ZET DE GETALLEN OP VOLGORDE ***" 

340 PRINT "BEURT S"5B 

350 PRINT 

360 PRINT "VAK "; 

370 FOR I - 1 TO 9 

380 X—5+1 *4-3 !REM TAB-POSITIE 

390 PRINT TAB(X) I; 

400 NEXT I 
410 PRINT 

420 PRINT TAB< 5 ) "!-!-!-!-I-!-!-!-!-!" 

430 PRINT "GETAL 
440 FOR I = 1 TO 9 

450 X=5+I*4-3 !REM TAB-POSITIE 

460 PRINT TAB( X ) Ad ) 5 
470 NEXT I 
480 PRINT 

490 PRINT TAB(5 ) " !-!-!-!-!-!-!-!-!-' 

500 RETURN 
510 : 

520 REM *** INVOER *** 

530 PRINT "KLAAR = 0 " 
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540 PRINT "WISSEL VAK 
550 INPUT X 
560 IF X * 0 THEN 700 
570 X = INT(X) 

580 IF X < 1 OR X > 9 THEN 540 

590 PRINT "MET VAK :"5 

600 INPUT Y 

610 IF Y = 0 THEN 700 

620 Y = INT(Y) 

630 IF Y < 1 OR Y > 9 THEN 590 
640 REM ** VERWERKING ** 

650 B = B + 1 !REM BEURTEN-TELLER 

660 REM * WISSEL.EN * 

670 H = A < X) 

680 A(X) = A(Y) 

690 A<Y) » H 
700 RETURN 
710 : 

720 REM *** CONTROLE *** 

730 H = 1 

740 A$ = "GOED" 

750 FOR I = 2 TO 9 

760 IF A (I -1) < Ad) THEN 800 

770 A$ = "FOUT" 

780 H = 0 
790 I = 9 
800 NEXT I 
810 RETURN 
820 : 

830 REM *** RE8ULTAAT *** 

840 GOSUB 320 

850 IF H = 1 THEN 920 

860 FOR I = 1 TO 9 

870 X~5+I*4-3 

880 PRINT TAB(X) B(I)5 

890 NEXT I 

900 PRINT 

910 PRINT TAB(10) "MOET HET ZIJN !■ 

920 PRINT "HET ANTWOORD IS ";A$;" !" 

930 IF H <> 1 THEN 950 
940 PRINT "IN ";B5"BEURTEN." 

950 RETURN 
960 : 

970 REM **** STUURMODULE **** 

980 REM *** INITIALISEREN *** 

990 GOSUB 70 

1000 REM *** UITVOER *** 

1010 GOSUB 320 

1020 REM *** INVOER *** 

1030 GOSUB 530 

1040 IF X <> 0 AND Y <> 0 THEN 1010 
1050 REM *** CONTROLE *** 

1060 GOSUB 730 

1070 REM *** RESULTAAT *** 

1080 GOSUB 840 
1090 END 




Voorbeeld 


*** ZET DE 
BEURT s 1 

GETALLEN OP 

VOLGORDE *** 



VAK 1 

i | 

2 3 4 

i i i 

5 6 7 

i i i 

8 

i 

9 

GETAL 13 

1 __ t .. 

5 10 16 

I I | „ 

2 3 19 

_ _ 1_1 I 

18 

20 

KLAAR = 0 
WISSEL VAK 

: 7 




MET VAK 

* 8 




*** ZET DE 

GETALLEN OP 

VOLGORDE *** 


BEURT : 2 





VAK 1 

1 — 1 . 

2 3 4 

- i i i _ 

5 6 7 

_ __ i i i _ 

8 

| 

9 

GETAL 13 

1 1 - 

5 10 16 

i _ i i. 

2 3 18 

_ _ | | | ... 

19 

I 

20 

KLAAR = 0 
WISSEL VAK 

s 6 




MET VAK 

: 4 





*** ZET DE GETALLEN OP VOLGORDE *** 

BEURT : 6 

VAK 12 3456789 

I-1-I-|_i_i_i_i_i_i 

GETAL 2 3 5 10 13 16 18 19 20 

i-i-|_i_i_i_i_i_i_i 

HET ANTWOORD IB GOED ! 

IN 6 BEURTEN. 
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Werking van het programma 

1. In matrix A worden negen willekeurige getallen geplaatst. Tegelijkertijd worden de- 
zelfde getallen ook in matrix B geplaatst. Tenslotte wordt matrix B op volgorde gesor- 
teerd. Indien bij de controle blijkt dat de ingevoerde rij foutief was, dan kan matrix B 
worden getoond. 

2. De inhoud van matrix A wordt op het beeldscherm gezet. 

3. De speler wisselt twee vakken met elkaar of hij geeft een nul ten teken dat hij wil 
stoppen. 

4. Was de invoer ongelijk aan nul, dan terug naar punt 2. 

5. De inhoud van matrix A wordt gecontroleerd of deze op 
oplopende volgorde staat. 

6. De resultaten worden op het beeldscherm gezet. 

7. Einde. 

In een stroomschema ziet het basisidee er als voIgt uit: 



Wanneer men de stuurmodule uit het programma vergelijkt met het hiervoor geschetste 
basisidee, dan zal zeker de overeenkomst opvallen. 

Toen dit programma ontwikkeld werd, is eerst de stuurmodule gemaakt, daarna de uit- 
voermodule. Daar zat namelijk het grootste probleem. De programma’s in dit boek zijn in 
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standaard BASIC geschreven en dat houdt in dat de schermopmaak vrij beperkt is. Toen 
deze module eenmaal klaar was, is de module ’initialiseren’ gebouwd. Daarna kon ook de 
uitvoermodule getest worden. Vervolgens zijn de andere modules geschreven en afzon- 
derlijk getest. Tenslotte zijn de modules aan de stuurmodule gekoppeld. 

Wanneer men de stuurmodule van Zeeslag naast de stuurmodule van dit programma legt, 
zal blijken dat de opzet van beide programma’s ongeveer gelijk is. Qua structuur lijken 
beide programma’s op elkaar, hetgeen ook de bedoeling was. Bij de ontwikkeling was het 
mogelijk razendsnel fouten te lokaliseren en te verhelpen. 
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2.9 Sommen 

In de rij educatieve programma’s mag een programma als ’Sommen’ niet ontbreken. Dit 
programma genereert achter elkaar hoofdrekensommen. Op de lagere niveaus zijn het 
eenvoudige optel- en aftreksommen. De uitkomst komt niet hoger dan 20. Wanneer men 
goede antwoorden op de sommen geeft, stijgt het niveau zodatookde moeilijkheidsgraad 
stijgt. Er komen dan ook vermenigvuldig- en deelsommen. De uitkomst van dit soort som¬ 
men zal op het hoogste niveau nooit uitstijgen boven de tafel van 10. 

Het programma genereert twee soorten opgaven. De eerste soort opgaven heeft de vorm 
A + B = ? De tweede soort heeft de vorm A + ? = C. Voor het plusteken kan ook een min-, 
vermenigvuldig- of deelteken staan. De getallen, die getrokken worden, zijn volkomen 
willekeurig en de hoogte is alleen afhankelijk van het niveau waarop men zich bevindt. 

Op het beeldscherm wordt tevens bijgehouden hoeveel opgaven men gemaakt heeft, 
hoeveel opgaven goed beantwoord zijn en hoe hoog het percentage goede antwoorden 
is. Wordt een vraag tout beantwoord, dan wordt het goede antwoord getoond. Mocht blij- 
ken dat de wachtlus in regel 1100 te lang of te kort is dan kan men door aanpassing van het 
getal 250 hierin verandering aanbrengen. 

Wil men stoppen met het programma, dan zal men bij het antwoord -9 moeten invoeren. 
Het programma toont dan het uiteindelijk behaalde resultaat. In het programma komen 
geen negatieve getallen als antwoord voor. Het zijn uitsluitend positieve getallen zoals 
men dat op de basisschool gewend is. 


Programma 


10 REM *** SOMMEN ****• 

20 DIM A$<4> 

30 RANDOM :REM DIT STATEMENT KAN MEN WEGLATEN 


40 GOTO 1280 
50 : 

60 REM *** 

70 A$<1> = 

80 A$ < 2) = 

90 A$<3) = 
100 A*(4) 


INITIALISEREN 
, ' + " 

•I — •* 


110 

120 

130 

140 

150 

160 

170 


RETURN 


:REM BEURTTELLER 
:REM NIVEAU 
:REM NIVEAUINDIKATOR 
:REM PERC.GOEDEN 
:REM GOEDE ANTWOORDEN 


180 REM *** UITVOER *** 

190 CLS :REM SCHERM WISSEN 

200 PRINT "*** SOMMEN ***" 

210 PRINT "BEURT ?T 

220 PRINT "NIVEAU :”;N 

230 PRINT "PERC. GOEDEN :”5Y 
240 PRINT 

250 ON K GOSUB 300 >340 

260 PRINT 
270 RETURN 
280 : 
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290 REM *** PRINT REGEL K * 1 *** 

300 PRINT A5 A*<J>?B;”=s 
310 RETURN 
320 s 

330 REM *** PRINT REGEL K * 2 *** 

340 PRINT A ? A* < J)?" .. = "?B 
350 RETURN 
360 : 

370 REM *** GETALLEN TREKKEN *** 

3B0 A = INT(RND(0) * X + 1 > 

390 B a INT(RND(0) * X + 1) 

400 RETURN 
410 s 

420 REM *** VRAAG OPHALEN *** 

430 N » INT(P/5 + 1) 

440 IF N < 9 THEN 460 
450 N = 8 
460 J « N 

470 IF J < 5 THEN 490 
480 J a 4 

490 J a I NT(RND(0) * J + 1) 

500 ON J GOSUB 590 ,650 ,730 ,820 

510 K a INT(RND< 0) * 2 +1) 

520 IF K a 1 THEN 560 

530 H a B 

540 B a C 

550 C a H 

560 RETURN 

570 s 

580 REM *** OPTELLEN *** 

590 X a lNT(N/2 + 1) * 10 

600 GOSUB 380 

610 C a A + B 

620 RETURN 

630 s 

640 REM *** AFTREKKEN *** 

650 X a INT(N/2 + 1) * 10 

660 GOSUB 380 

670 C « a + B 

680 A a c 

690 C a A - B 

700 RETURN 

710 : 

720 REM *** VERMENIGVULDIGEN *** 

730 X a 10 

740 IF N < 5 THEN 760 
750 X = x + N 
760 GOSUB 380 

770 IF A > 10 OR B > 10 THEN 760 
780 C a a * B 
790 RETURN 
800 : 

810 REM *** DEL.EN *** 

820 X = 10 

830 IF N < 5 THEN 850 
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10 THEN 850 


840 X = X •+• N 
850 GOSUB 380 
860 IF A > 10 OR B > 

870 C = A * B 
880 A = C 
890 C « A/B 
900 RETURN 
910 s 

920 REM *** INVOER *** 

930 PRINT “STOP * -9 !" 

940 PRINT "WAT MOET ER INGEVULD WORDEN "5 
950 INPUT Q 

960 IF Q * -9 THEN 1140 
970 T « T + 1 
980 P = P -i 
990 H * 0 

\1000 A* = "«> FOUT <a» 

1010 IF Q <> C THEN 1060 
1020 A$ a "a> SOED <a» 

1030 H a 1 

1040 G a G + 1 

1050 P a p + 2 

1060 IF P > 0 THEN 1080 

1070 P a 1 

1080 Y a INT< <G/T) * 1000)/10 
1090 PRINT TAB(10) A* 

1100 PRINT "HET ANTWOORD WAS "5C 
1110 REM ** WACHTLUS ** 

1120 FOR I a l TO 250 * (2 - H) 

1130 NEXT I 
1140 RETURN 
1150 s 

1160 REM *** RESULTAAT *** 

1170 CLS sREM SCHERM WISSEN 

1180 PRINT "*** SOMMEN *** 

1190 PRINT 

1200 PRINT "TOTAAL. A ANTAL BEURTEN 
1210 PRINT "TOTAAL AANTAL GOEDEN 
1220 PRINT “PERC. GOEDE ANTWOORDEN 
1230 PRINT "NIVEAU 
1240 RETURN 
1250 s 

1260 REM **** STUURMODULE **** 

1270 REM *** INITIALISEREN *** 

1280 GOSUB 70 

1290 REM *** VRAAG OPHALEN *** 

1300 GOSUB 430 
1310 REM *** UITVOER *** 

1320 GOSUB 190 
1330 REM *** INVOER *** 

1340 GOSUB 930 
1350 IF Q <> -9 THEN 1300 
1360 REM *** RESULTAAT *** 

1370 GOSUB 1170 
1380 END 


H iD > Z 





Voorbeeld 

*** SOMMEN *** 

BEURT s 5 

NIVEAU s 1 

PERC. GOEDEN s 80 

9 + 4 = 

STOP = -9 ! 

WAT MOET ER INGEVULD WORDEN 13 
=> GOED <~ 

HET ANTWOORD WAS 13 


*** SOMMEN *** 

BEURT : 6 

NIVEAU s 2 

PERC. GOEDEN : 83.3 

34 - .. = 20 


STOP = -9 ! 

WAT MOET ER INGEVULD WORDEN 14 
GOED <= 

HET ANTWOORD WAS 14 


*** SOMMEN *** 

BEURT : 7 

NIVEAU s 2 

PERC. GOEDEN : 85.7 

19 - 11 * .. 

STOP « -9 ! 

WAT MOET ER INGEVULD WORDEN -9 


*** SOMMEN *** 

TOTAAL AANTAL BEURTEN : 7 

TOTAAL AANTAL GOEDEN : 6 

PERC. GOEDE ANTWOORDEN : 85.7 

NIVEAU : 2 
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2.10 Wat is het volgende getal? 

Dit is een heel verraderlijk programma dat niet alleen voor kinderen, maar ook voor vol- 
wassenen geschikt is. Op de lage niveaus is het nog vrij gemakkelijk. Men kan dan nog 
wel in een oogopslag zien wat het volgende getal moet zijn. Komt het programma op ho- 
gere niveaus dan kunnen de getallen uit twee verschillende rijen bestaan en dan wordt het 
erg moeilijk te bepalen wat het volgende getal zal zijn. Er zijn maar weinig mensen ge- 
weest die het hoogste niveau in het programma hebben bereikt. Er zijn er nog minder die 
zich op het hoogste niveau hebben kunnen handhaven. 

De werking van het programma is als voIgt. Er worden zes getallen achter elkaar op het 
beeldscherm gezet. In plaats van het zevende getal wordt er een vraagteken neergezet. 
De bedoeling is dit zevende getal af te leiden uit de vorige zes getallen of minder. Geeft 
men steeds het goede antwoord dan zal het niveau langzaam stijgen en worden de vra- 
gen ingewikkelder. Maakt men daarentegen fouten, dan zakt langzaam het niveau. De 
soort reeks, die wordt opgebouwd, is volkomen willekeurig, zodat het programma blijft 
boeien hoe vaak men het ook speelt. 

Het programma toont altijd de uitkomst; mocht dit te kort of te lang zijn, dan kan men de 
lengte van de wachtlus in regel 960 aanpassen. 

De kleine formule tussen haakjes zorgt ervoor dat bij een fout antwoord de wachttijd twee 
keer zo lang is als bij een goed antwoord. 


Programma 


10 REM *** WAT IS HET VOLGENDE GETAL *** 

20 RANDOM sREM DIT STATEMENT MAG VERVALLEN 

30 DIM A(7) 

40 GOTO 1270 


50 s 

60 REM *** INITIALISEREN *** 


70 T = 0 
80 G * 0 
90 Y = 0 
100 P a 0 
110 N « 1 
120 RETURN 
130 s 


sREM AANTAL BEURTEN 
sREM AANTAL GOEDE ANTW. 
sREM PERC. GOEDEN 
sREM NIVEAU-INDICATOR 
sREM NIVEAU 


140 REM *** OPLOPEND NIVEAU <= 1 *** 
150 FOR I =* 1 TO 7 


160 A< I) == B + R * I 
170 NEXT I 
180 RETURN 
190 s 

200 REM *** AFDALEND NIVEAU <« 2 *** 
210 GOSUB 150 sREM OPLOPEND 


220 FOR I « 1 TO 3 
230 A = A<8-1) 

240 A(8-1) = A< I > 
250 A(I) a A 
260 NEXT I 
270 RETURN 
280 s 


290 REM *** TWEE REEKSEN *** 


51 





300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 


REM NIVEAU O 3 EN NIVEAU <> 4 
FOR J a 1 TO 2 
B = INT(RND(0) * X + 1) 

R = INT(RND<0) * Z + 1) 

IF RND< 0) >0-5 OR N = 3 THEN 360 

R = R * -1 

GOSUB 410 

NEXT J 

RETURN 


REM *** 0PL0PEND MET STAPGROOTTE 2 
S « B 

FOR I a J TO 8 -J STEP 2 
A<I> * S + R 
S « A ( I ) 

NEXT I 
RETURN 


*** 


REM *** RANDOM GEVULD 1 NIVEAU <> 5 *** 

FOR I « 1 TO 6 

A(I) a INT(RND(0) * X + 1) 

NEXT I 
J a 1 
GOSUB 410 
RETURN 

REM *** RANDOM GEVULD NIVEAU <> 6 *** 

H a INT< RND(0) * 2 + 1) :REM OPLOPEND/AFDALEND ? 

ON H GOSUB 150 i210 

Q a INT(RND(0) * 3 + 1) 

FOR I a l JO Q 
H a INT(RND(0) *6+1) 

A(H) = INT(RND(0) * X) 

NEXT I 
RETURN 


REM *** UITVOER *** 

CLS sREM SCHERM WISSEN 

PRINT "*** WAT IS HET VOLGENDE GETAL *** 
PRINT 

PRINT "NIVEAU :”?N 

PRINT "AANTAL BEURTEN : "?T+1 
PRINT "PERC. GOEDEN ;Y 

PRINT 

FOR I a 1 jo 6 
PRINT A(I)5 
NEXT I 
PRINT " 

RETURN 


REM *** INVOER / VERWERKING *** 

PRINT "WAT IS HET VOLGENDE GETAL <STOP == 9999> " ? 
INPUT E 

IF E a 9999 THEN 1050 

H a 0 sREM STUURVARIABELE 
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850 A$ = "=> FOUT <=" 

860 P = P - 1 : REM NIVEAU--INDICATOR 

870 T = T + 1 :REM BEURT + 1 

880 IF E <> A<7) THEN 930 

890 P = P + 2 

900 H - 1 

910 A$ = "«> GOED <=* 

920 G = G + H 
930 PRINT A$ 

940 PRINT "HET GETAL WAS "5A(7) 

950 REM ** WACHTLUS ** 

960 FOR I - 1 TO 250 * <2 - H) 

970 NEXT I 

980 REM ** RESULTAAT VERWERKING ** 

990 N = INT(P/5)+1 
1000 IF N < 7 THEN 1020 
1010 N = 6 

1020 IF N > 0 THEN 1040 
1030 N = 1 

1040 Y = INTUG/T) * 1000) / 10 ; REM PERC. GOED 

.1050 RETURN 
1060 : 

1070 REM *** VRAAG OPHALEN *** 

.1080 X = N * 10 
1090 Z = N * 5 

1100 B = INT(RND(0) * X + 1) 

1110 R = INT(RND(0) * Z + 1) 

1120 H = INT< RND(0) * N + 1> 

1130 ON H GOSUB 150 >210 >310 >310 >490 >570 

1140 RETURN 
1150 : 

1160 REM *** RESULTAAT *** 

1170 CI..S 

1180 PRINT "*** WAT IS HET VOLGENDE GETAL ***" 


1190 PRINT 

1200 PRINT "AANTAL BEURTEN 5T 
1210 PRINT “AANTAL GOEDE ANTWOORDEN :"?G 
1220 PRINT "PERCENTAGE GOED s";Y 
1230 PRINT"NIVEAU :"5N 


1240 RETURN 
1250 : 

1260 REM *** INITIALISEREN *** 

1270 GOSUB 70 

1280 REM *** VRAAG OPHALEN *** 

1290 GOSUB 1080 

1300 REM *** UITVOER *** 

1310 GOSUB 670 

1320 REM *** INVOER / VERWERKING *** 

1330 GOSUB 810 

1340 IF E <> 9999 THEN 1290 

1350 REM *** RESULTAAT *** 

1360 GOSUB 1170 
1370 END 








Voorbeeld 

*** WAT IS MET VOLGENDE GETAL *** 

NIVEAU : 1 

AANTAL BEURTEN s 1 
PERC. GOEDEN s 0 

6 8 10 12 14 16 .?. 

WAT IS HET VOLGENDE GETAL CSTOP « 9999> 17 

=> FOUT <« 

HET GETAL WAS 18 


*** WAT IS HET VOLGENDE GETAL *** 

NIVEAU s 1 

AANTAL BEURTEN s 2 
PERC. GOEDEN : 0 

10 15 20 25 30 35 . ?. 

WAT IS HET VOLGENDE GETAL CSTOP * 9999> 40 

=> GOED C~ 

HET GETAL WAS 40 


*** WAT IS HET VOLGENDE GETAL *** 

NIVEAU s 1 

AANTAL BEURTEN : 5 
PERC. GOEDEN : 75 

4 6 8 10 12 14 .?. 

WAT IS HET VOLGENDE GETAL CSTOP = 9999> 9999 


*** WAT IS HET VOLGENDE GETAL *** 

AANTAL BEURTEN : 4 

AANTAL GOEDE ANTWOORDEN : 3 
PERCENTAGE GOED : 75 

NIVEAU : 1 
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3. Spelprogramma’s 


3.1 Struisvogelrace 

Eens per jaar worden in Boomcity de grote struisvogelraces gehouden. Dit zijn de grootste 
races en alleen de hoogste in het klassement van de regionale competitie worden ge- 
plaatst. illustere namen als Whooper, Langzame Jenny en Driftige Floeper zullen aan de 
start verschijnen. 

Zoals gebruikelijk is, wordt er bij dit soort races behoorlijk gegokt en iedereen doet mee. 
De te winnen prijzen liegen er niet om. 

Als buitenstaander lijkt het verstandig bij de eerste races voorzichtig in te zetten. Een van 
de vreemde regels bij de struisvogelraces is dat men van het terrein verwijderd wordt als 
men alles verloren heeft. 



Het programma maakt gebruik van een randomgenerator om de race te simuleren. Omdat 
het programma in standaard BASIC geschreven is, wordt iedere keer het beeldscherm 
gewist en opnieuw opgebouwd. Dit programma leent zich uitstekend om de nieuwe spel- 
situatie in de renbaan te POKEn. Men moet dan niet vergeten de vorige plaatsen te wis- 
sen. 

Voor iemand, die net met microcomputers begint, geeft dit programma een aardig beeld 
hoe men met strings kan manipuleren. 
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Prog ram ma 

10 REM *** STRUISVOGELRACE *** 

20 RANDOM :REM DIT STATEMENT KAN VERVALLEN 

30 DIM A (6» 2)» B$<6) 

40 DATA WEGRACERt6?WOOFER?3?"LANGZAME JENNY'S 10 
50 DATA "DRIFTIGE FLOEPER"?5?"STRUISE BOL"? 12 
60 DATA "LOPEND POTLOOD"?4 
70 GOTO 1110 
80 : 

90 REM *** INITIALISEREN *** 

100 R = 0 :REM AANTAL RACES 

110 B = 1000 : REM TOTAAL. AAN INZET 

120 REM ** INTERNE DATA-FILE LEZEN ** 

130 RESTORE 

140 FOR I = 1 TO 6 

150 READ B*<I)?A(I?2) 

160 NEXT I 
170 RETURN 
180 : 

190 REM *** INVOER *** 

200 CLS :REM SCHERM WISSEN 

210 PRINT "*** STRUISVOGELRACE ***" 

220 PRINT "RACE-NUMMER "sR+1 ;TAB(20)"MAXIMALE INZET ";B 
230 PRINT 

240 FOR I = 1 TO 6 

250 PRINT I;B$ <I);TAB(25)A <I? 2)? TAB(29)": 1" 

260 NEXT I 
270 PRINT 

280 PRINT "WAT IS UW KEUZE <STOP = 0> "; 

290 INPUT K 

300 IF K ~ 0 THEN 420 

310 IF K < 0 OR K > 6 THEN 200 

320 PRINT "HOEVEEL ZET U IN OP ";B$(K) 

330 PRINT "U KUNT MAXIMAAL ";B5"INZETTEN ! HOEVEEL "5 
340 INPUT L 

350 IF L < 0 OR L. > B THEN 320 

360 B = B - L 

370 REM ** START RACE ** 

380 FOR I = 1 TO 6 

390 A (I ? 1) - 1 :REM STRUISVOGEL OP START 

400 NEXT I 

410 R = R + 1 

420 RETURN 

430 : 

440 REM *** BEWERKING *** 

450 X = 1 

460 FOR I ~ 1 TO 6 

470 A ( I ? 1) = A (11 1 ) + RND < 0) * 3 

480 IF A < X ?1) > A ( I ? 1 ) THEN 500 

490 X = I :REM WISSELEN 

500 NEXT I 

510 REM ** DE FINISH GEHAAL.D ? ** 

520 H = 0 

530 IF A(Xj1) < 32 THEN 550 

540 H = 1 :REM RACE GEEINDIGD 
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550 RETURN 
560 s 

570 REN *** UITVOER *** 

580 CLS 2 REM SCHERM WISSEN 

590 PRINT "*** STRUISVOGELRACE ***" 

600 PRINT "RACE--NUMMER "5R?TAB(17)" INGEZET 
610 PRINT "TOTAAL "5B 

620 PRINT “INGEZET OP STRUISVOGELNR."*K?B$(K) 
630 PRINT 

640 PRINT ” ! — ! — ! — ! — ! — ! — ! — ! — ! — ! — ! " 

650 FOR I = 1 TO 6 

660 D* = LEFT$<"FINISH"?I) 

670 D$ = RIGHT$ <D$?1) 

680 E$ = LEFT$<"123456"?I) 

690 E$ ~ RIGHT$<ESm1> 

700 Y = INT(A(1 5 1) + 0.5) 

710 IF Y > 32 THEN 740 

720 PRINT TAB(Y)E$? sREM STRUISVOGELNR. 

730 IF Y = 32 THEN 770 
740 PRINT TAB(32)D$" 

750 IF Y < 32 THEN 770 

760 PRINT TAB(Y)E*5 sREM STRUISVOGELNR. 

770 D$ = "<-" 

780 IF X = I THEN 800 

790 13$ = "" 

800 PRINT TAB(35)D$ 

810 NEXT I 

820 PRINT " ! — ! — ! — ! — ! —— ! — ! — ! — ! — ! — ! ” 

830 RETURN 
840 : 

850 REM *** RESULTAAT *** 

860 REM ** VERLOREN ? ** 

870 1 = L * -1 

880 B$ = "VERLOREN s " 

890 IF X <> K THEN 940 

900 Z = L * A(K? 2) :REM UITKERING 

910 B$ = "GEWONNEN 2 “ 

920 B = B + Z 

930 REM ** UITVOER ** 

940 GOSUB 580 

950 PRINT "KOERSWINNAAR IS NUMMER"5X5B$(X) 

960 PRINT B$ ? ABS(Z) 

970 PRINT "NOG EEN KOERS <JA/NEE> "5 
980 INPUT C$ 

990 C$ = LEFT$(C$?1) 

1000 H = 0 

1010 IF C$ = "N" THEN 1040 
1020 H = 1 

1030 IF C* <> "J" THEN 970 
1040 IF B > 0 THEN 1070 
1050 PRINT "ALLES VERLOREN !" 

1060 H = 0 
1070 RETURN 
1080 2 

1090 REM **** STUURMODULE *** 





1100 REM *** INITIALISEREN *** 

1110 GOSUB 100 

1120 REM *** INVOER *•** 

1130 GOSUB 200 

1140 IF K = 0 THEN 1230 

1150 REM *** UITVOER *** 

1160 GOSUB 580 

1170 REM *** BEWERKING *** 

1180 GOSUB 450 

1190 IF H = 0 THEN 1160 

1200 REM *** RESULTAAT *** 

1210 GOSUB 870 

1220 IF H = 1 THEN 1130 

1230 END 


% 
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Voorbeeld 


*** STRUISVOGELRACE 

*** 



RACE-NUMMER 1 

MAX IMALE INZET 1000 

1 WEGRACER 


6 

1 

2 WOOPER 


3 

1 

3 LANGZAME JENNY 


10 

1 

4 DRIFTIGE FLOEPER 


5 

1 

5 STRUISE BOL 


12 

1 

6 LOPEND POTLOOD 


4 

1 


WAT IB UW KEUZE <STOP = 0> 5 

HOEVEEL ZET U IN OP STRUISE BOL 
U HUNT MAXIMAAL 1000 INZETTEN ! HOEVEEL 500 
*** BTRUISVOGELRACE *** 

RACE-NUMMER 1 INGEZET ! 500 TOTAAL 500 
INGEZET OP STRUISVOGELNR. 5 STRUIBE BOL 


i_i_i_i_i — i — i — | — | — ! — ! 

1. F 



*** BTRUISVOGELRACE *** 

RACE-NUMMER 1 INGEZET : 500 TOTAAL 500 
INGEZET OP STRUISVOGELNR. 5 STRUISE BOL 

i_i_i_i — i — i — | — | — | — | 

1 

•-I 

jL 

3 

4 

5 

6 

i i i i | — i — ) — i — | — | 

*** ST RUISVOGEL RACE *** 

RACE-NUMMER 1 INGEZET : 50© TOTAAL 6500 
INGEZET OP STRUISVOGELNR. 5 STRUISE BOL 

i_i_i_i — i — i — i — « — ! — ! — ! 

1 

21 
3 N 
4 I 

5 <~ 

6 H 

i_i_i_i_i — i — } — | — i — ! — ! 

KOERSWINNAAR IS NUMMER 5 STRUISE BOL 

GEWONNEN : 6000 

NOG EEN KOERS <JA/NEE> NEE 


F <~ 

I 

N 

I 

S 

H 










3.2 Fruitmachine 


Overal ziet men ze staan; de fruitmachines. In het cafe, de snackbar, bij de kapper, de 
Chinees en nu thuis op de computer. Een verschil is wel; in deze fruitmachine hoeft geen 
geld gegooid te worden, maar hij keert ook niets uit! De computer laat u ook niet vrij om 
grof te gokken want de inzet kan niet kleiner dan 0 of groter dan 5 zijn. 

De puntentelling geschiedt aan de hand van onderstaand tabelletje. 


JOKER 

JOKER 

JOKER 

1:20 

BAR 

BAR 

BAR 

1:15 

KLOK 

KLOK 

KLOK 

1:12 

CITROEN 

CITROEN 

CITROEN 

1: 8 

APPEL 

APPEL 

APPEL 

1: 5 

KERS 

KERS 

- 

1: 3 

KERS 

- 

- 

1: 2 


Het programma werkt niet met plaatjes, maar met de benamingen van de plaatjes. Het is 
natuurlijk veel leuker om met plaatjes te werken. Op sommige computers is dit vrij een- 
voudig te realiseren. Maar men zal altijd PEEK- en POKE-opdrachten nodig hebben om 
tot de gewenste resultaten te komen. Verder zou het aardig zijn te suggereren dat de 
plaatjes door het beeldscherm draaien. Niet bepaald een eenvoudige opgaaf om dit voor 
elkaar te krijgen. 
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Programma 

10 REM *** FRUITMACHINE *** 

20 DIM A*<6>, B < 3)* D(10,2) 

30 RANDOM 

40 DATA JOKER BAR ~“*"~ KLOK 

50 DATA CITROEN APPEL -"*"- KERB 

60 DATA 111*20? 221*15* 333*12* 331*12* 444,8 
70 DATA 441,8, 555*5, 551*5 *66*3, 6*2 
80 GOTO 760 
90 : 

100 REM *** INITIALIBEREN *** 

110 RESTORE 

120 REM ** SYMBOLEN LEZEN ** 

130 FOR I = 1 TO 6 
140 READ A$<I) 

150 NEXT I 

160 REM ** WAARDERING LEZEN ** 

170 FOR I = 1 TO 10 
180 READ D(I*1)* D<1,2) 

190 NEXT I 
200 T == 0 
210 B = 0 
220 RETURN 
230 : 

240 REM *** DRAAIEN *** 

250 Y = INT < RND(0) * 10 + 1> 

260 FOR I = 1 TO Y 
270 S = 0 

280 FOR J » 1 TO 3 

290 B(J) = INT(RND(0) * 6 + 1) 

300 B = B * 10 + B(J) 

310 NEXT J 
320 NEXT I 
330 RETURN 
340 : 

350 REM *** RESULTAAT *** 

360 H = 0 sREM STUURVARIABELE 

370 B = B * -1 

380 IF B = 0 THEN 510 

390 FOR I = 1 TO 8 

400 IF S <> D<I * 1) THEN 430 

410 H = I 

420 I = 8 :REM LUSTELLER MAX. 

430 NEXT I 

440 IF H <> 0 THEN 490 
450 H - 9 

460 IF D(H,1) » B(1) * 10 + B<2) THEN 490 
470 H - 10 

480 IF D(H*1> <> B<1) THEN 500 
490 B = D(H,2) * ABS(B) 

500 T = T + B :REM TOTAAL WINST 

510 RETURN 
520 : 

530 REM *** UITVOER *** 




I 


540 CLS s REM SCHERM WISSEN 

550 PRINT "*** FRUITMACHINE ***" 

560 PRINT 

570 PRINT "DEZE BEURT :"B 

580 PRINT "TOTAAL :"T 

590 PRINT " !-! !-! !-| 

600 FOR I = 1 TO 3 

610 PRINT TAB<I* 11 - 8 )A$(B(I))? 

620 NEXT I 
630 PRINT 

640 PRINT " !---! !-• i-■ » 

650 PRINT 
660 RETURN 
670 : 

680 REM *** INVOER *** 

690 PRINT "HOEVEEL ZET JE IN <STOP = 0> 

700 INPUT B 

710 IF B < 0 OR B > 5 THEN 690 
720 RETURN 
730 : 

740 REM **** STUURMODULE **** 

750 REM *** INITIALISEREN *** 

760 GOSUB 110 

770 REM *** DRAAIEN *•** 

780 GOSUB 250 

790 REM *** RESULTAAT *** 

800 GOSUB 360 

810 REM *** UITVOER *** 

820 GOSUB 540 

830 REM *** INVOER *** 

840 GOSUB 690 

850 IF B <> 0 THEN 780 

860 END 
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Voorbeeld 

*** FRUITMACHINE *** 

DEZE BEURT : 0 

TOTAAL : 0 

i_| i_| I-i 

- JOKER — APPEL — JOKER - 

i_i i_i i-1 


HOEVEEL ZET JE IN <STOP = 0> 25 
HOEVEEL ZET JE IN <STOP = 0> 2 


*** FRUITMACHINE *** 


DEZE BEURT 5-2 
TOTAAL :-2 


1 _ 1 1 

- JOKER — 

i _ i i — 

APPEL — CITROEN 

HOEVEEL ZET JE IN 

CSTOP = 0> 2 

*** FRUITMACHINE 

*** 

DEZE BEURT :-2 

TOTAAL :-4 

1 1 1 


- JOKER -- 

i _ i | — 

BAR — KL.OK 

HOEVEEL ZET JE IN 

1 <STOP = 0> 2 

*** FRUITMACHINE 

*** 

DEZE BEURT : 4 

TOTAAL s 0 

1 | | 


- KERS 

i _ i i — 

JOKER — APPEL 


HOEVEEL ZET JE IN <STOP * 0> 0 











r 


3.3 Torens van Hanoi 

Het probleem 'Torens van Hanoi’ is al een vrij oud probleem. Veel mensen hebben het 
trachten op te lossen. Het lijkt zo simpel, alleen maar een stel schijven overhevelen. In de 
praktijk blijkt het zeker niet mee te vallen. Men moet zich goed concentreren om geen 
fouten te maken. Gebruikt men drie schijven dan zal men een keer of acht moeten schui- 
ven met de schijven. Neemt men zeven schijven dan moet men rekenen op minstens 128 
keer schuiven. Het is maar een waarschuwing dat het niet eenvoudig is. 

Met moet proberen de schijven van staaf 1 naar staaf 3 te krijgen, waarbij men staaf 2 als 
hulpstaaf mag gebruiken. Er geldt een regel: Een grotere schijf mag nooit bovenop een 
kleinere schijf komen te liggen. 

Wanneer men het programma start, kan men kiezen met hoeveel schijven men wil spelen. 
Minimaal zijn dit er drie, maximaal zijn dit er zeven. Men geeft dan op van welke staaf men 
een schijf wil plaatsen en dan op welke staaf men hem plaatsen wil. Geeft men bij de 
eerste vraag een nul, dan neemt het programma aan dat men klaar is. Het programma 
gaat na of op staaf 3 de schijven in de goede volgorde liggen. Zondigt men onderweg 
tegen de regels van het spel, dan stopt het programma direct en zal men opnieuw moeten 
beginnen. 



In dit programma moet de speler de oplossing van het probleem zien te vinden, maakt hij 
een tout dan kan de computer niet vodrdoen hoe het moet. Het zou best aardig zijn als de 
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computer dit wel kon. Dit is te realiseren door een aantal modules aan het programma toe 
te voegen. In BASIC zal dit een behoorlijk probleem blijken te zijn. In het boek 'Structured 
computer organization’ van Tanenbaum, een uitgave van Prentice Hall, staat een idee 
hoe men de oplossing kan vinden. Het blijkt dat men een stackmechanisme nodig heeft. 

* Een stack kenmerkt zich door het LIFO-principe. Last In First Out. 
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Programma 

10 REM *** TORENS VAN HANOI *** 

20 DIM A<8*3> 

30 GOTO 1060 
40 s 

50 REM *** INITIALISEREN *** 

60 S = 15 
70 FOR I « 1 TO 8 
80 A(IH) = S - 2 * I 
90 A(15 2) « 0 

100 A( I ? 3) a 0 

110 NEXT I 
120 B a 1 
130 Q == 7 

140 A$ = "************* •' 

150 RETURN 
160 s 

170 REM *** INVOER I *** 

180 GOSUB 360 sREM *** UITVOER *** 

190 PRINT "HOEVEEL SCHIJVEN <MIN.=3 MAX.*7> "5 
200 INPUT Q 

210 IF 0 < 3 OR Q > 7 THEN 180 
220 IF Q a 7 THEN 320 

230 REM ** GEDEELTELIJK OPNIEUW INITIALISEREN *** 
240 S a a<7 - Q?1) 

250 FOR I a Q JO 7 

260 A<1,1) a 0 sREM STAAF SCHOONMAKEN 

270 NEXT I 

280 REM * SCHIJVEN PLAATSEN * 

290 FOR I a i JO Q 

300 A(1 5 1) a S - 2 * I 

310 NEXT I 

320 A< 8?1) a Q 

330 RETURN 

340 s 

350 REM *** UITVOER *** 

360 CLS 

370 PRINT "*** TORENS VAN HANOI ***” 

380 PRINT "BEURT "5B 
390 PRINT 

400 PRINT TAB(5)1; TAB<19)25 TAB(33)3 
410 PRINT 

420 FOR I « 7 TO 1 STEP -1 
430 FOR J a l TO 3 
440 B$ a “I" 

450 V a 6 

460 IF A<IfJ) a 0 THEN 490 
470 V a <13 - A<IfJ> >/2 
480 B$ a RIGHT$(A$»A(I?J)) 

490 P a j * 14 - 14 + v 
500 PRINT TAB<P)B*5 
510 NEXT J 
520 PRINT 
530 NEXT I 
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540 RETURN 
550 : 

560 REM *** INVOER II *** 

570 PRINT "VAN STAAFNUMMER CSTOP == 0> "5 

580 INPUT D 

590 IF D = 0 THEN 640 

600 IF D < 0 OR D > 3 THEN 570 

610 PRINT "NAAR STAAFNUMMER "5 

620 INPUT F 

630 IF F < 0 OR F > 3 THEN 610 
640 RETURN 
650 s 

660 REM *** BEWERKING *** 

670 H = 1 
680 B * B + 1 

690 IF A< 8 ?D) « 0 OR A( 8 »F) « Q THEN 800 
700 H = 0 

710 REM ** SCHIJF VAN STAAF-D HALEN ** 

720 C = A( 8 ? D) 

730 A < 8 ? D) a A( 8 »D) - 1 
740 p = A(C« D) 

750 A(CiD) = 0 

760 REM ** SCHIJF OP STAAF-F ZETTEN ** 

770 A( 8 ? F) a A( 8 ? F) + 1 
7E30 C a A (8 ? F ) 

790 A(C? F) = P 
800 RETURN 
810 : 

820 REM *** CONTROLE *** 

830 IF A( 8 ? F) = 1 AND D <> 0 THEN 940 
840 IF D <> 0 THEN 860 
850 F a 3 

860 FOR I a i JO A( 8 ? F) - 1 

870 IF A(1 9 F) > A(I + 19F) THEN 900 

880 H a i 

890 I a A (89 F) 

900 NEXT I 

910 IF H a 1 OR D <> 0 THEN 940 
920 IF A <89 F) = Q THEN 940 
930 H a 1 
940 RETURN 
950 : 

960 REM *** RESULTAAT *** 

970 GOSUB 360 :REM *** UITVOER *** 

980 B* a ”FOUT ! <«» 

990 IF H a 1 THEN 1010 
1000 B« = " GOED ! <a 11 
1010 PRINT "HET IS ";B« 

1020 RETURN 
1030 : 

1040 REM **** STUURMODULE **** 

1050 REM *** INITITIALISEREN *** 

1060 GOSUB 60 

1070 REM *** INVOER I •** 

1080 GOSUB 180 





1090 REM *** UITVOER *** 

1100 GOSUB 360 

1110 REM *** INVOER *** 

1120 GOSUB 570 

1130 IF D 3 0 THEN 1180 

1140 REM *** BEWERKING *** 

1150 GOSUB 670 

1160 IF H « 1 THEN 1210 

1170 REM *** CONTROLE *** 

1180 GOSUB 830 

1190 IF D <> 0 AND H <> 1 THEN 1100 
1200 REM *** RESULTAAT *** 

1210 GOSUB 970 
1220 END 
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Voorbeeld 


*** TORENS VAN HANOI *** 

BEURT 1 


*** TORENS VAN HANOI *** 
BEURT 4 

1 

2 

3 

1 

2 

* 

I 

I 

I 

I 

*** 

I 

I 

I 

I 

***** 

I 

I 

I 

I 

******* 

I 

I 

I 

I 

********* 

I 

I 

I 

I 

*********** 

I 

I 

I 

* 

************* 

I 

I 

***** 

*** 

HOEVEEL SCHIJVEN 

CMIN.=3 MAX.=7> 

3 

VAN STAAFNUMMER < 
NAAR STAAFNUMMER 

:stop = 

3 


*** TORENS VAN HANOI *** 
BEURT 1 

1 2 


I I 

I I 

I I 

I I 

* I 

*** I 

***** I 


VAN STAAFNUMMER <STOP = 0> 
NAAR STAAFNUMMER 3 


*** TORENS VAN HANOI *** 
BEURT 5 


I 

I 

I 

I 

I 

I 

I 


I I 

I I 

I I 

I I 

I I 

I * 

X *** 

VAN STAAFNUMMER <STOP 
NAAR STAAFNUMMER 1 


= 0 > 


3 

I 

I 

I 

I 

I 

I 

***** 


*** TORENS VAN HANOI *** 
BEURT 2 

1 2 


I I 

I I 

I I 

I I 

I I 

*** I 

***** I 


VAN STAAFNUMMER CSTOP = 0> 
NAAR STAAFNUMMER 2 


*** TORENS VAN HANOI *** 
BEURT 6 


I I I 



* *** 

VAN STAAFNUMMER CSTOP = 0> 
NAAR STAAFNUMMER 3 


3 

I 

I 

I 

I 

I 

I 

***** 


*** TORENS VAN HANOI *** 

BEURT 3 

1 2 3 

I I I 

I I I 

I I I 

I I I 

I I I 

I I I 

***** *** * 

VAN STAAFNUMMER CSTOP = 0> 3 

NAAR STAAFNUMMER 2 


*** TORENS VAN HANOI *** 
BEURT 7 


1 2 3 

I I I 

I I I 

I I I 

I I I 

I I I 

I i *** 

* I ***** 

VAN STAAFNUMMER CSTOP = 0> 1 

NAAR STAAFNUMMER 3 




*** TORENS VAN HANOI *** 
BEURT 7 


I I 

I I 

I I 

I I 

I I 

I I 

I I 

VAN STAAFNUMMER <STOP 


I 

I 

I 

I 

* 

*** 

***** 


= 0 > 0 


*** TORENS VAN HANOI *** 
BEURT 7 


1 2 3 

I I I 

I I I 

I I I 

I I I 

I I * 

I I *** 

I I ***** 

HET IS GOED ! <« 
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3.4 Boter, kaas en eieren 

Boter, kaas en eieren is een vrij eenvoudig spelletje, waarbij men goed moet opletten 
geen fouten te maken. Maakt men een tout dan heeft de tegenstander gewonnen. Een 
tegenstander die geen fouten maakt, is de computer. Voor veel mensen is het onbegrijpe- 
lijk dat een computer zo’n spel kan spelen. De computer neemt beslissingen en doet goe- 
de zetten. Voor sommige mensen is dit zelfs beangstigend. 

Ondanks het vrij eenvoudige spel, is het programma toch nog vrij ingewikkeld. Er moet 
namelijk voor worden gezorgd dat het programma alle spelsituaties aankan en op grand 
daarvan ook tot een goede beslissing komt. Gelukkig zijn de mogelijke zetten beperkt. 

De speler of de computer begint als eerste. De keuze wordt aan de speler overgelaten. 
Aan de hand van de programmalisting is gemakkelijk na te gaan, hoe de machine tot een 
beslissing komt. Het blijkt dat het programma alle mogelijke situaties afloopt en op grand 
van de resultaten een zet doet. Dit programma is dan ook een bescheiden voorbeeld van 
kunstmatige intelligence. 



Na iedere zet wordt het beeldscherm gewist en daarna opnieuw opgebouwd met de gewij- 
zigde spelsituatie. Het nadeel is dat er een zeer onrustig beeld ontstaat. Met behulp van 
POKE-opdrachten kan men de wijzigingen rechtstreeks op het beeldscherm veranderen. 
Beschikt men over een kleurencomputer dan kan men met kleuren het speelveld verle- 
vendigen. Verder verdient het zeker aanbeveling het gehele speelveld te vergroten. Dit 
heeft echter wel de nodige consequenties voor de uitvoermodule. 
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Prog ram ma 


10 REM *** BOTER KAAS EN EIEREN *** 

20 DATA 1,2,3,4,5,6,7,8,9,1»4,7, 2, 4, 8 
30 DATA 3,6,9,1,3,9,3,5,7 
40 DIM A < 9),B(3) 

50 GOTO 1350 
60 : 

70 REM *** INITIALIBEREN *** 

80 FOR I = 1 TO 9 
90 A(I) = 0 
100 NEXT I 

lie B ■ B : C - e i F ■ 0 i G > 10 

120 A$ = " !-!-‘-! " 

130 : 

140 RETURN 
150 : 

160 REM *** TEGENZET COMPUTER *** 

170 REM ** BEURT 1 COMPUTER ** 

180 P = 0 : C = C + 1 : G - G - 1 

190 IF C > 1 THEN 290 

200 IF A(7) = 9 THEN P = 3 

210 IF A<9) - 9 THEN P = 1 

220 IF A(3) = 9 THEN P = 1 

230 IF A(1) = 9 THEN P = 9 

240 IF P <> 0 THEN 540 

250 P = 5 

260 IF A(P) - 0 THEN 290 
270 P = 9 

280 REM ** BEURT 2 COMPUTER ** 

290 IF B > 1 OR P <> 0 THEN 330 
300 P = 1 

310 IF Ad) = 0 AND A < 9) = 0 THEN 540 
320 P = 3 

330 IF P <> 0 THEN 540 

340 REM ** COMPUTER WINT ? ** 

350 R = 1 : Y - 1 

360 GOSUB 930 

370 IF P <> 0 THEN 540 

380 REM ** COMPUTER BLOKKEERT ** 

390 R = 9 : Y - 9 

400 GOSUB 930 

410 IF P <> 0 THEN 540 

420 REM ** NIEUWE OPENING ** 

430 R = 1 : Y ~ 0 

440 GOSUB 930 

450 IF P <> 0 THEN 540 

460 R = 0 : Y = 1 

470 GOSUB 930 

480 IF P <> 0 THEN 540 

490 REM ** EERSTE DE BESTE VRIJE PLAATS ** 

500 FOR 1=1 TO 9 

510 IF Ad) <> 0 THEN 530 

520 P = I : 1=9 

530 NEXT I 
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540 A(P) = 1 
550 R = 1 
560 GOSUB 1060 
570 RETURN 
580 : 

590 REM *** UITVOER SPEELBORD *** 

600 CLS 

610 PRINT “*** BOTER HAAS EN EE IE REN ***" 

620 PRINT 

630 IF C = 0 OR G - 0 THEN 660 
640 PRINT "COMPUTER ZET OP VELD ";P 
650 PRINT 
660 PRINT A$ 

670 FOR I » 0 TO 2 
680 FOR J = 1 TO 3 
690 P - I * 3 + J 
700 B$ = STR$ < P) 

710 IF A(P) = 0 THEN 750 
720 B* = " 0" 

730 IF A< P) = 1 THEN 750 
740 B$ = " X" 

750 PRINT TAB<J * 4 - 3)B$5 
760 NEXT J 
770 PRINT 
780 PRINT A* 

790 NEXT I 
800 RETURN 
810 : 

820 REM *** ZET SPELER *** 

830 PRINT "WELK VELD KIES JE "' 

840 INPUT K 

850 IF K < 1 OR K > 9 THEN 830 
860 IF A(K) <> 0 THEN 830 
870 A < K) = 9 

880 B = B + 1 : G = G - 1 : R == 9 
890 GOSUB 1060 
900 RETURN 
910 : 

920 REM *** SCANROUTINE *** 

930 RESTORE 

940 FOR I = 1 TO 8 

950 READ B(1)»B(2)>B(3) 

960 FOR J = 1 TO 3 

970 IF A(B<1> > <> 0 THEN 1000 

980 IF A<B(2)) <> R OR A(B(3)> <> Y THEN 1000 
990 P — B(1) : J = 3 ! I =8 
1000 X - B (1 ) : B ( 1) = B (2) 

.1010 B<2> = B(3) : B( 3) = X 

1020 NEXT J 
1030 NEXT I 
1040 RETURN 

1050 REM *** WINNAAR ? *** 

1060 RESTORE 

1070 FOR I = 1 TO 8 

1080 READ X» Y» Z 
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1090 IF A(X) <> R THEN 1120 

1100 IF A(Y) <> R OR A < Z) <> R THEN 1120 

1110 F - R s G - 0 : 1=8 

1120 NEXT I 

1130 RETURN 

1140 : 

1150 REM *** WIE BEGINT ? *** 

1160 PRINT "WIL JIJ BEGINNEN <JA/NEE> "; 
1170 INPUT B$ 

1180 B* = LEFT$(B$,1) 

1190 H = 1 

1200 IF B$ = "N" THEN 1230 

1210 IF B$ <> “J" THEN 1160 

1220 H = 0 

1230 G = G - H 

1240 RETURN 

1250 : 

1260 REM *** RESULTAAT *** 

1270 IF F = 0 THEN B$ = "GELIJK SPEL" 

1280 IF F = 1 THEN B$ = "IK HEB GEWONNEN" 

1290 IF F = 9 THEN B* = "JIJ HEBT GEWONNEN" 

1300 PRINT B* 

1310 RETURN 
1320 : 

1330 REM **** STUURMODULE **** 

1340 REM *** INITIALISEREN *** 

1350 GOSUB 80 

1360 REM *** UITVOER SPEELBORD *** 

1370 GOSUB 600 

1380 REM *** WIE BEGINT ? *** 

1390 GOSUB 1160 

1400 IF H = 1 THEN 1470 

1410 REM *** UITVOER SPEELBORD *** 

1420 GOSUB 600 

1430 REM *** ZET SPELER *** 

1440 GOSUB 830 

1450 IF G <= 0 THEN 1500 

1460 REM *** TEGENZET COMPUTER *** 

1470 GOSUB 180 

1480 IF F = 0 AND G > 0 THEN 1420 
1490 REM *** RESULTAAT *** 

1500 C = 0 
1510 GOSUB 600 
1520 GOSUB 1270 
1530 END 
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Voorbeeld 

*** BOTER KAAS EN EKEREN *** 


1 

4 

7 


5 

8 


3 

6 

9 


WIL JIJ BEGINNEN <JA/NEE> JA 

*** BOTER KAAS EN EIEREN *** 


1 

4 

7 


5 

8 


3 

6 

9 


WELK VELD KIES JE 5 

*** BOTER KAAS EN EIEREN *** 
COMPUTER ZET OP VELD 9 


1 

1 — 1 

2 

3 

1 i 

X 

0 

0 

4 

i — i 

X 

6 

0 

X 

X 

7 

i .... i 

8 

0 

1 1 

X 

X 

0 

WELK 

VELD 

KIES JE 1 

!-! 

-! 

-! 


*** BOTER KAAS EN EIEREN *** 
COMPUTER ZET OP VELD 3 


X 
4 
7 

i_i 


X 

8 


0 

6 

0 


WELK VELD KIES JE 6 


*** BOTER KAAS EN EIEREN *** 
COMPUTER ZET OP VELD 4 


X 

0 

7 


X 

8 


0 

X 


WELK VELD KIES JE 8 

*** BOTER KAAS EN EIEREN *** 

COMPUTER ZET OP VELD 2 


X 

0 

7 


0 

X 

X 


0 

X 

o 


WELK VELD KIES JE 7 

*** BOTER KAAS EN EIEREN *** 


GEL UK SPEL 
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3.5 Doolhof 


Het blijkt dat doolhoven op mensen een intrigerende aantrekkingskracht hebben. In veel 
tijdschriften komen we ze tegen en we zijn dan gauw geneigd onze pen te pakken en de 
oplossing te zoeken. 

In de Griekse mythologie wordt ook al gewag gemaakt van een doolhof. Dit doolhof, waar- 
in de beruchte Minotaurus was opgesloten, lag op het eiland Kreta. Het was ontworpen 
door Daidalos, dit is ook degene die met zijn zoon Ikaros vluchtte uit zijn gevangenschap 
met behulp van vleugels. Niet alleen in de Griekse oudheid komen doolhoven voor, maar 
ook in Engeland. Bekend is het heggendoolhof van Hampton Court. Om in de behoefte 
aan doolhoven tegemoet te komen is het volgende programma ontworpen. Het genereert 
steeds weer een ander doolhof om opgelost te worden. Elk doolhof heeft ten minste een 
oplossing, maar er kunnen er meer zijn. Beschikt men over een printer dan kan men het 
doolhof hierop uitprinten. De enige invoer die men moet geven is de gewenste hoogte en 
breedte van het doolhof. Het programma beperkt de breedte tot 30 en de hoogte tot 31 
eenheden. Dit dient men wel aan de eigen computer aan te passen. 

Dit programma is ook goed te gebruiken om aan de hand van het doolhof een driedimen- 
sionale weergave te maken. Men zal dan wel gebruik moeten maken van POKE-opdrach- 
ten om de plaatjes op te bouwen. 

Een andere leuke uitbreiding is, de computer zijn weg te laten zoeken door het doolhof. De 
uitbreiding zal niet eenvoudig zijn, maar het is mogelijk. 
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Programma 

10 REM *** DOOLHOF *** 

20 DIM A(31 * 30)* B(16) 

30 RANDOM :REM DIT STATEMENT MAG VERVALL.EN 

40 GOTO 1040 
50 s 

60 REM *** INITIALISEREN *** 

70 B$(1) = " !" 

80 B*(2) = "-!" 

90 B$<3> = " 

100 RETURN 
110 : 

120 REM *** INVOER *** 

130 CLS s REM SCHERM WISSEN 

140 PRINT "*** DOOLHOF ***“ 

150 PRINT 

160 PRINT "HOOGTE VAN HET DOOLHOF "5 
170 INPUT H 

180 IF H < 1 OR H > 31 THEN 160 
190 IF H/2 - INT<H/2) <> 0 THEN 210 
200 H = H - 1 

210 PRINT "BREEDTE VAN HET DOOLHOF " ? 

220 INPUT B 

230 IF B < 0 OR B > 30 THEN 210 
240 RETURN 
250 : 

260 REM *** DOOLHOF OPBOUWEN *** 

270 REM ** BASIS DOOLHOF OPBOUWEN ** 

280 K = INT(B/3) 

290 IF K < 6 THEN 310 
300 K = 5 

310 FOR X = 1 TO H STEP 2 

320 FOR Y = 0 TO 1 

330 I = X + Y 

340 IF I > H THEN 380 

350 FOR J “ 1 TO B 

360 A < I» J ) = ABS(Y-l) 

370 NEXT J 
380 NEXT Y 
390 NEXT X 

400 REM ** DOORGANGEN MAKEN ** 

410 FOR I = 1 TO H STEP 2 
420 X = INT(RND(0) * B + 1) 

430 P = <I + 1)/2 

440 IF I = 1 THEN 460 

450 IF ABS < B < P—1) - X) > K THEN 420 

460 B< P) = X 

470 A(15 X) = 0 

480 NEXT I 

490 REM ** WILLEKEURIGE DOORGANGEN ** 

500 REM ** EXTRA INGANG ! ** 

510 X = INT <RND< 0) * B + 1) 

520 A(15 X) = 0 

530 FOR I = 3 TO H - 2 STEP 2 
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REM DOORGANG 


540 Y = INT(RND(0) * K + 1) 

550 FOR P = 1 TO Y 
560 J = INT(RND(0) * B + 1) 

570 IF A (I y J) = 0 THEN 560 
580 A(Iy J) = 0 
590 NEXT P 
600 NEXT I 

610 FOR I = 2 TO H—1 STEP 2 
620 Y = INT< RND<0) * B + 1) 

630 FOR P = 1 TO Y 
640 J = INT(RND(0) * B + 1) 

650 IF A(Iy J) = 2 THEN 640 
660 A <Iy J) = 2 
670 NEXT P 
680 NEXT I 

690 REM ** OBSTAKELS WEGHALEN ** 

700 FOR I = 2 TO H-l STEP 2 
710 P = (I + 2) / 2 
720 A = B(P - 1) 

730 C = B < P) 

740 S = 1 :REM STAPGROOTTE 

750 IF A <= C THEN 770 
760 S = -1 

770 FOR J = A TO C STEP S 

780 A(Iy J) = 2 

790 NEXT J 

800 NEXT I 

810 RETURN 

8jc'0 • 

830 REM *** UITVOER VAN DOOLHOF *** 

840 CLS :REM SCHERM WISSEN 

850 PRINT "*** DOOLHOF ***” 

860 PRINT 

870 FOR I = 1 TO H 
880 PRINT "!"5 
890 FOR J * 1 TO B 
900 P = A(IyJ) + 1 
910 PRINT B*<P>; 

920 IF A(Iy J) <> 2 THEN 970 
930 B$ = » " 

940 IF J < B THEN 960 
950 B$ - » ! “ 

960 PRINT B$5 
970 NEXT J 
980 PRINT 
990 NEXT I 
1000 RETURN 
1010 : 

1020 REM *** STUURMODULE *** 

1030 REM *** INITIALISEREN *** 

1040 GOSUB 70 

1050 REM *** INVOER *** 

1060 GOSUB 130 

1070 REM *** DOOLHOF OPBOUWEN *** 

1080 GOSUB 280 
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1090 REM *** UITVOER *** 

1100 GOSUB 840 

1110 PRINT "WILT U NOG EEN DOOLHOF <JA/NEE> 
1120 INPUT B$ 

1130 IF L.EFT$ (B$» 1 ) = "J" THEN 1040 
1140 END 




Voorbeeld 

*** DOOLHOF *** 

HOOGTE VAN HET DOOLHOF 10 
BREEDTE VAN HET DOOLHOF 10 


*** DOOLHOF *** 



WILT U NOG EEN DOOLHOF <JA/NEE> JA 

*** DOOLHOF •**•* 

HOOGTE VAN HET DOOLHOF 20 
BREEDTE VAN HET DOOLHOF 15 


*** DOOLHOF 


I_I_1_I_i_I ! 

i i i i i ! 



I 

_I_I_I_1_I 


WILT U NOG EEN DOOLHOF <JA/NEE> NEE 


80 













































3.6 Duikboot 


In de Zuidelijke ijszee dichtbij Young’s eiland is een vijandelijke onderzeeer door een sa- 
telliet gesignaleerd. Door de ruwe zee en de verschillende zoutlagen kan de positie niet 
nauwkeurig worden bepaald. Gelukkig is er een nieuw soort torpedojager in de buurt die 
ook nog een helikopter aan boord heeft met de nodige opsporingsapparatuur. Een van de 
bijzonderheden van de torpedojager is dat deze onzichtbaar is voor de duikboot. 

De helikopter, die aan boord is van de torpedojager, heeft een actieradius van minstens 
200 mijl. Is de helikopter eenmaal in de lucht dan kan hij naar elke codrdinaat worden 
gedirigeerd. Daar laat de helikopter zijn ’dipper’ zakken en bepaalt zo de afstand tot de 
duikboot. De gegevens van de helikopter worden direct aan de torpedojager doorgeseind. 
Dezelfde soort apparatuur is aan boord van de torpedojager. De nauwkeurigheid van de 
afstandsbepaling neemt toe naarmate men dichter bij de duikboot is; dat is ook logisch 
omdat de zoutlagen dan minder invloed krijgen. 

De torpedojager heeft zelf twee torpedo’s aan boord die hij kan afvuren op de duikboot. 
Deze moeten wel binnen een afstand van vijf mijl van de duikboot worden afgevuurd. 
De helikopter kan maar vijf achtereenvolgende beurten in de lucht blijven. Dan moet hij 
terug naar het moederschip om te worden bijgetankt. Door de zware zee kan de torpedo¬ 
jager maar maximaal negen mijl per beurt worden verplaatst. Dit betekent maximaal vijf 
mijl in de X-richting en vijf mijl in de Y-richting. 

Op het scherm van de operatieleider kunnen de verrichtingen globaal worden gevolgd. De 
torpedojager wordt op het scherm weergegeven met een T en de helikopter, wanneer hij 
in de lucht is, met een H. 

Bovenin het beeldscherm worden achtereenvolgens de afstand van de duikboot tot de 
torpedojager gegeven, de coordinaten waarop de torpedojager zich bevindt en het aantal 
torpedo’s dat de torpedojager aan boord heeft. Komt de helikopter in de lucht dan worden 
de gegevens van de helikopter ook op het beeldscherm vermeld. 

Uit de gegevens van de satelliet valt af te leiden dat er iets aan de hand moet zijn met de 
duikboot. Hij schijnt heel langzaam te varen. Overigens ligt er op de tafel van de operatie¬ 
leider een liniaal, ruitjespapier en een passer. 

Beschikt men over een computer, waarop men zelf karakters kan definieren, dan is het 
veel aardiger de torpedojager in het beeldscherm weer te geven met een bootje en de 
helikopter met een plaatje van een heli in plaats van de letters T en H. 

Nadat de spelsituatie is gewijzigd, wordt het hele beeld gewist en opnieuw opgebouwd. 
Dit duurt altijd erg lang. Men kan dit versnellen door met POKE-opdrachten de verande- 
ring direct op het beeldscherm aan te brengen. 


Programma 


10 REM *** DUIKBOOT *** 

20 RANDOM SREM DIT STATEMENT MAG VERVALLEN 

30 GOTO 1800 


40 : 

50 REM *** INITIALISEREN *** 

60 W1 - INT<RND<0) * 90) : REM X-COORD. 

70 W2 = INT(RND(0) * 90) : REM Y-COORD. 

80 D1 - INT<RND(0) * 90) : REM X-COORD. 

90 D2 = INT(RND<0) * 90) : REM Y-COORD. 

100 A = SQR((W1 - D1)+2 + <W2 - D2)t2) 


TORPEDOJAGER 

TORPEDOJAGER 

DUIKBOOT 

DUIKBOOT 
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110 

if a < : 

120 

H3 =* 5 

130 

R « 1 

140 

Z = 9 

150 

C$ = "" 

160 

T « 2 

170 

E = 1 

180 

RETURN 

190 

: 

200 

REM *** 

210 

PRINT V 

220 

PRINT 

230 

PRINT n ; 

240 

PRINT “1 

250 

INPUT X 

260 

IF X < 

270 

ON X GO! 

280 

RETURN 

290 

s 

300 

REM *** 

310 

IF Z = I 

320 

PRINT 

330 

INPUT H 

340 

IF HI < 

350 

IF H2 < 

360 

Z * 1 

370 

IF HI < 

380 

H3 a 5 

390 

Z = 9 

400 

RETURN 

410 

s 

420 

REM *** 

430 

PRINT " 

440 

INPUT X 

450 

IF ABS(1 

460 

IF X < 

470 

IF Y < 

480 

W1 = X 

490 

W2 a Y 

500 

RETURN 

510 

s 

520 

RE-IM *** 

530 

PRINT 

540 

INPUT B 

550 

IF B < I 

560 

B a B * 

570 

FOR I = 

580 

XI a wi 

590 

X2 a W2 

600 

A a SOR 

610 

IF A > ! 

620 

R a 0 

630 

I a 5 

640 

NEXT I 

650 

E a 0 
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25 THEN 60 


s REM HELI VOL GETANKT 
5 REM DUIKBGOT VAART 
5 REM HELI AAN BOORD 
s REIi LEGE TEKBT STRING 
sREM AANTAL TORPEDO 7 S 
sREN SPEL DRAAIT 


HELI 

SCHIP 


1 OR X > 3 THEN 210 
SUB 310 * 430 5 530 


0 THEN 400 
GEEF X ? Y-CC 
1 ? H2 

0 OR HI > 
0 OR H2 > 

> W1 OR H2 


(WERKING HELI *** 

>ORD. HELI "5 

100 THEN 310 
100 THEN 310 

sREM HELI IN DE LUCHT 
<> W2 THEN 400 

sREM HELI WORDT BIJGETANKT 
sREM HELI AAN BOORD 


X »Y—COORD TORPEDOJAGER 


0 OR 
0 OR 


X) 

x : 

y : 


5 OR ABS(W2 - Y) 
100 THEN 430 
100 THEN 430 


5 THEN 430 


INVOER 
5EEF DE 


/ VERWERKING TORPEDO *** 
RIGHTING IN GRADEN "5 


530 


: REM GRADEN => RAD 


0 OR B > 360 THEN 
3.1415926 / 180 
1 TO 5 STEP 0.2 
+ COS < B) * I 
+ SIN<B) * I 

:<<D1 - X1) 12 + (D2 - X2)t2) 

5 THEN 640 

sREM DUIKBOOT GEZONKEN 
sREM LUS-TELLER MAXIMUM 




660 T - T - 1 !REM TORPEDO’S MIN EEN 

670 IF R = 0 OR T = 0 THEN 720 
680 E = 1 

690 REM ** DUIKBOOT GEVLUCHT ** 

700 D1 = INT(RND ( 0) * D1 + 1) 

710 D2 = INT(RND(0) * D2 + 1) 

720 RETURN 


730 : 

740 REM *** KOERS DUIKBOOT *** 
750 IF E = 0 THEN 860 


760 

D1 

= Di 

+ 

INT(RND(0 

770 

D2 

= D2 


INK RND(0 

780 

IF 

Dl > 

-1 

THEN 

800 

790 

D1 

= 90 




800 

IF 

Dl < 

91 

THEN 

820 

810 

D1 

=••= 0 




820 

IF 

D2 > 

-1 

THEN 

840 

830 

D2 

* 90 




840 

IF 

D2 < 

91 

THEN 

860 

850 

D2 

= 0 





860 RETURN 
870 : 

880 REM *** BEREKENING *** 

890 REM ** HELICOPTER IN DE LUCHT ** 

900 IF Z <> 1 OR E - 0 THEN 980 

910 H3 = H3 - 1 :REM BRANDBTOF -1 

920 IF H3 > -1 THEN 980 


930 Z = 0 

940 C$ = " NEERGESTORT !" 

950 HI = 0 

960 H2 = 0 

970 REM ** PLAATS HELICOPTER IN KAART ** 

980 H4 = -1 :REM AANDUIDING HELI 

990 IF Z <> 1 THEN 1020 

1000 H4 = INT(<H2 + 5)/10) * 10 + INTI(HI + 5)/10) 

1010 REM ** PLAATS TORPEDOJAGER IN KAART ** 

1020 UI4 = I NT ( (W2 + 5) /10) * 10 + INT((W1 + 5)/10) 

1030 REM ** PLAATS DUIKBOOT IN KAART ** 

1040 D4 = INT( ( D2 + 5)/'10> * 10 + INT((D1 + 5)/10) 
1050 D* == : REM GEZONKEN DUIKBOOT 

1060 IF R = 0 THEN 1110 

1070 D* = "D" :REM VARENDE DUIKBOOT 

1080 IF E = 0 THEN 1110 

1090 D4 = -1 :REM DUIKBOOT ONZICHTBAAR 

1100 REM ** AFSTAND TOT DUIKBOOT ** 

1110 H = 0 

1120 IF Z <> 1 THEN 1180 
1130 REM * HELI - DUIKBOOT * 

1140 X = SQR< <D1 - HI)t2 + (D2 - H2)t2) 

1150 GOSUB 1240 
1160 H - X 

1170 REM * TORPEDOJAGER - DUIKBOOT * 

1180 X == SQRKDl - W1) t2 + (D2 - W2)t2) 

1190 GOSUB 1240 
1200 W = X 


/ 




1210 RETURN 
1220 : 

1230 REM *** BEPALING MATE VAN NAUWKEURIGHEID *** 

1240 XI = I NT (X * 10 4- 0.5)/ 10 

1250 IF X < 10 THEN 1290 

1260 XI = <INT<X / 5)) * 5 

1270 IF X < 25 THEN 1290 

1280 XI = (INT(X / 10)) * 10 

1290 X = XI 

1300 RETURN 

1310 : 

1320 REM *** UITVOER *** 

1330 CL8 sREM SCHERM WISSEN 

1340 PRINT "*** DUIKBGOT ***" 

1350 IF Z = 9 THEN 1370 

1360 PRINT "HELICOPTER "5H?TAB<17)"COORD.X-Y"?HI 5H 

1370 PRINT "TORPEDOJAGER"5W?TAB(17)"COORD.X-Y"?W1? 

1380 PRINT "TORP."5T 

1390 FOR J = 0 TO 9 

1400 PRINT TAB(J *3 + 3) J? 

1410 NEXT J 

1420 PRINT “ <* 10)" 

1430 FOR I = 0 TO 9 
1440 PRINT 1*10? 

1450 FOR J = 0 TO 9 


1460 

P = 

: I 

* 10 

+ J 




1470 

A$ 


ii ii 





1480 

IF 

P 

<> H4 

THEN 

1500 



1490 

A* 

=s 

"H" 





1500 

IF 

P 

<> W4 

THEN 

1520 



1510 

A* 

=-• 

ii y ii 





1520 

IF 

P 

<> D4 

THEN 

1560 



1530 

M 

=~ 

D$ 





1540 

IF 

P 

<> W4 

OR P 

<> D4 

THEN 

1560 

1550 

A$ 

= 

" T " + 

D$ 




1560 

IF 

P 

<> W4 

OR P 

<> H4 

THEN 

1580 

1570 

A$ 

=s 

"TH" 





1580 

IF 

P 

<> H4 

OR P 

<> D4 

THEN 

1600 

1590 

A$ 


"H" + 

D$ 





1600 PRINT TAB(J * 3 + 4)A$? 

1610 NEXT J 
1620 PRINT 
1630 NEXT I 
1640 RETURN 
1650 : 

1660 REM *** RESULTAAT *** 

1670 REM ** BEREKENING ** 

1680 GOSUB 900 

1690 REM ** UITVOER ** 

1700 GOSUB 1330 

1710 D$ « "VERLORENi DE DUIKBOOT VAART NOG STEEDS ! 
1720 IF R = 1 THEN 1740 

1730 D$ « "GEWONNENf DE DUIKBOOT IS GEZONKEN !" 

1740 PRINT D$ 

1750 PRINT "COORDINATEN DUIKBOOT M ? D1? %"?D2 


s: k* 




1760 RETURN 
1770 : 

1780 REM **** STUURMODULE **** 
1790 REM *** INITIALISEREN *** 
1800 GOSUB 60 

1810 REM *** BEREKENING *** 

1820 GOSUB 900 

1830 REM *** UITVOER *** 

1840 GOSUB 1330 

1850 REM *** INVOER *** 

1860 GOSUB 210 

1870 REM *** KOERS DUIKBOOT *** 

1880 GOSUB 750 

1890 IF E = 1 THEN 1820 

1900 REM *** RESULTAAT *** 

1910 GOSUB 1680 
1920 END 




Voorbeeld 


*** DUIKBOOT *** 

TORPEDOJAGER 60 COORD.X-Y 44 


0 

10 

20 

30 

40 

50 

60 

70 

80 

90 


1 


14 

9 


HELI 


8CHIP 3 


WAT IS UW KEUZE 1 
GEEF X? Y-COORD. HELI 


30 


TORPEDO 


60 


*** DUIKBOOT *** 
HELICOPTER 10 
TORPEDOJAGER 60 


0 


0 

10 

20 

30 

40 

50 

60 

70 

80 

90 


HELI 


2 3 


COORD 
COORD 
4 5 


WAT IS UW KEUZE 1 
GEEF X 5 Y~COORD. HELI 


X-Y 30 
X-Y 44 
7 8 


60 

14 

9 


SCHIP 3 * TORPEDO 


33 


60 


*** DUIKBOOT *** 
HELICOPTER 10 
TORPEDOJAGER 60 


1 


0 


0 

10 

20 

30 

40 

50 

60 

70 

80 

90 


HELI 


COORD 
COORD 
4 5 


WAT IS UW KEUZE 


X-Y 33 
X-Y 44 
7 8 


60 

14 

9 


SCHIP 3 = TORPEDO 
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TORP. 
<* 10 ) 


TORP. 
<* 10 ) 


TORP. 
<* 10 ) 




























3.7 Zeeslag 

De spelregels van Zeeslag zijn als voIgt: men formeert in een zee zijn vloot. De vloot be- 
staat uit een vliegdekschip, die vijf posities inneemt, een kruiser met vier posities, een 
fregat met drie posities, een mijnenveger met twee posities en een duikboot met twee 
posities. Deze schepen moeten minstens een positie van elkaar afliggen. Verder mogen 
de schepen in de horizontale (west-oost) en de verticale (noord-zuid) richting liggen. De 
computer bouwt ook zijn vloot en houdt zich ook aan bovengenoemde regels. Wanneer de 
speler zijn vloot opbouwt, dient hij er rekening mee te houden dat er gerekend wordt vanaf 
de boeg van het schip. 

Nadat de vloten geformeerd zijn, wordt met schieten begonnen. Men geeft de coordinaten 
van het schot in de X- en Y-richting. Is het schot mis dan verschijnt er ’PLONS’ op het 
scherm en tegelijkertijd wordt het schot in de zee aangegeven. Is het schot raakdan wordt 
aangegeven wat men raak geschoten heeft. 



Een van de nadelen van het programma is dat men steeds moet wachten, totdat het hele 
beeldscherm is opgebouwd. Men kan dit voorkomen door de nieuw ontstane spelsituatie 
op het beeldscherm te POKEn. 

Beschikt men over een kleurencomputer dan kan men de zee waar de vijandelijke vloot 
ligt een andere kleur geven dan de zee waar de eigen vloot ligt. 

Het spel Zeeslag is een oud spel dat vroeger werd gespeeld op ruitjespapier maar tegen- 
woordig ook mogelijk is op een computer. Het spel wordt niet door twee personen ge¬ 
speeld, maar men speelt tegen de computer. 

De computer moet beslissingen nemen afhankelijk van de spelsituatie. Er is in dit geval 
gekozen voor een eenvoudige tactiek om het spel niet al te groot te maken. Op dit punt kan 
het spel aanmerkelijk worden verbeterd. 

Het programma Zeeslag is een goed voorbeeld hoe een idee in een modulair programma 
is omgezet. Het spel is onder te verdelen in een aantal onderdelen: 

1. Beide spelers nemen een stuk papier en zetten er een coordinatenstelsel op. 

2. Speler 1 (computer) plaatst niet zichtbaar voor speler 2 zijn schepen in een coor¬ 
dinatenstelsel, waarbij hij er op let zich aan de spelregels te houden. 
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3. Speler 2 plaatst niet zichtbaar voor speler 1 zijn schepen, waarbij hij er op let dat 
hij zich aan de coordinaten houdt. 

4. Speler 1 lost een schot in de zee van speler 2. Heeft speler 1 alle schepen van 
speler 2 vernietigd dan heeft hij gewonnen. 

5. Speler 2 lost een schot in de zee van speler 1. Heeft speler 2 alle schepen van 
speler 1 vernietigd dan heeft hij gewonnen. 

6. De winnaar wordt bekend gemaakt. 

Wanneer het bovenstaande in een stroomschema wordt weergegeven dan ziet dit er als 

voIgt uit: 
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Het bovenstaande schema is terug te vinden in de stuurmodule achteraan in het program- 

ma. De getekende rechthoeken stellen subroutines voor die de omschreven functie uit- 

voeren. 

Het opbouwen van de speelvelden van zowel computer als speler geschiedt op identieke 

wijze. 

Achtereenvolgens worden de vijf schepen geplaatst. 

1. Er wordt een coordinaat bepaald waar de boeg van het schip komt te liggen. De 
computer bepaalt dit willekeurig. 

2. Daarna wordt bepaald of het schip noord-zuid of west-oost komt te liggen. 

3. Na de bovenstaande actie (punt 1 en 2) wordt nagegaan of het schip op de aan- 
gegeven plaats kan liggen. Voldoen de coordinaten aan de spelregels? 

4. Kan het schip er niet liggen dan wordt er weer bij punt 1 begonnen. In het andere 
geval wordt het schip neergelegd. 

5. Wanneer nog niet alle schepen zijn geplaatst, neem dan het volgende schip uit de 
rij en begin weer bij 1. 

Schematisch ziet dit er als voIgt uit: 



Het schema van de subroutine is terug te vinden in het programma, waar het twee keer 
voorkomt. De eerste keer, waar de computer zijn speelveld opbouwt en de tweede keer 
waar de speler zijn speelveld opbouwt. Wanneer men de subroutines ’*** SPEELVELD 
COMPUTER OPBOUWEN ***’ en '*** SPEELVELD SPELER OPBOUWEN ***’ bekijkt, 
zal men zien dat beide routines gebruik maken van de subroutine ’*** CONTROLE OP 
SCHIP ***’. Deze subroutine gaat na of de plaatsing van het schip juist is en of het voldoet 
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aan de spelregels. Worden de opgegeven coordinaten geaccepteerd, dan wordt het schip 
ook daadwerkelijk geplaatst. In het andere geval wordt de vraag opnieuw gesteld. 
Nadat het programma deze modules heeft doorlopen, zijn alle schepen geplaatst in het 
coordinatenstelsel en het spel kan beginnen. De speler begint met schieten in de zee van 
de computer. De volgende functies worden verricht: 

1. Zee opbouwen van de computer, zonder het weergeven van de schepen van de 
computer. Ditgeschiedtmetstuurvariabelenendesubroutine’*** ZEE-AFDRUK ***’. 

2. Speler geeft de coordinaten van het schot in de X-Y-richting op. 

3. Het programma controleert de coordinaten. Worden deze niet geaccepteerd, terug 
naar punt 1. 

4. Nagegaan wordt of er iets geraakt is en wat er geraakt is. Het schot wordt ver- 
werkt in de zee van de computer. 

5. Resultaat van het schot wordt op het beeldscherm gezet. 

6. Nagegaan wordt of alle schepen van de computer vernietigd zijn. 

In stroomschema ziet het er als voIgt uit: 



De module waarin het schot van de computer op de speler wordt bepaald, zit iets gecom- 
pliceerder in elkaar. Degenen die exact willen weten wat er gebeurt, kunnen het beste het 


90 





















programma statement voor statement doorlopen. Hiema wordt slechts een globale uit- 
eenzetting gegeven. 

Bij de bepaling van het schot door de computer kan van drie situaties worden uitgegaan: 

1. onbekend 

2. aangeschoten 

3. beschadigd 

De drie genoemde opmerkingen zijn ook in de programmatuur terug te vinden. 
Onbekend wil zeggen: de computer weet niet waar een schip ligt. Hij gokt! 
Aangeschoten wil zeggen: Een schot is raak, maar hij weet nog niet hoe het schip ligt 
horizontaal of verticaal. 

Beschadigd wil zeggen: Twee of meer schoten zijn raak. De richting waarin het schip ligt is 
bekend. 

De module *** SCHOT COMPUTER *** is te verdelen in twee blokken. Het eerste blok 
bepaalt de coordinaten van het schot. Het tweede blok gaat na wat de resultaten van het 
schot zijn: 


( START ) 


Bepaling ci 
schot 
comp 

Dordinaten 

door 

Duter 



\terv/G 

sd 

com| 

irking 

lot 

puter 


( STOP ) 


Het blok *** BEPALING COORDINATEN VAN HET SCHOT *** is opgebouwd uit een 
hoofdmodule met drie submodules. In de hoofdmodule wordt bepaald of een schip van de 
speler aangeschoten of beschadigd is. Blijkt dit voor geen enkel schip van de speler op te 
gaan dan geldt ’onbekend’. De bovenstaande bepaling geschiedt aan de hand van de 
inhoud van matrix B. De aansturing van de submodules geschiedt door de stuurvariabele 
H. 
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In schema ziet dit er als voIgt uit: 



De laatste module is de module ’*** RESULTAAT ***’. Deze geeft aan wie de winnaar van 
het spel is. 

Het zal duidelijk zijn dat het verdelen van het probleem ’Zeeslag’ in deelproblemen, het 
oplossen eenvoudig maakt. Bij de ontwikkeling kan men zich volledig concentreren op 
een deelprobleem. Door dit deelprobleem in een module op te lossen, blijft het geheel 
overzichtelijk en voorkomt men spaghetti-toestanden. Tegelijkertijd heeft men het voor- 
deel dat men een module al kan testen voordat het gehele programma klaar is. 

Met deze uitleg is er naar gestreefd, de gebruiker van dit boek een inzicht te geven hoe 
complexe problemen kunnen worden aangepakt. 
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Programma 

10 REM *** ZEESLAG *** 

20 RANDOM sREM DIT STATEMENT KAN VERVALLEN 

30 DIM A (20110)»B(5»3)»A$<12)*<5) 

40 DATA 5>2» 4*3> 3>4» 3»5> 2>6 
50 DATA " . ",-V-j-K- j-F-»-M-»-D- 
60 DATA 11 * " ,*V*»*K*»*F*»*M*»*D* 

70 DATA VLIEGDEKSCHIP» KRUISER 5 FREGAT 
80 DATA MIJNENVEGER*DUIKBOOT 
90 GOTO 3440 
100 : 

110 REM *** INITIALISEREN *** 

120 RESTORE 
130 FOR I - 1 TO 20 
140 FOR ,J = 1 TO 10 
150 IF I <> 1 THEN 170 
160 READ X 
170 A <I»J) - 1 
180 NEXT J 

190 IF I > 12 THEN 240 
200 READ A*<I> 

210 IF I > 5 THEN 240 
220 B ( I» 1 ) = 0 
230 B(1 1 2) = 0 
240 IF I < 16 THEN 260 
250 READ B$< I - 15) 

260 NEXT I 
270 RESTORE 
280 FOR I = 1 TO 5 
290 READ B <I»3)> X 
300 NEXT I 

310 REM ** VARIABELEN OP NUL ** 

320 T ~ 0 sREM GEZ.ONKEN SCHEPEN 

330 RETURN 
340 : 

350 REM *** 3PEELVELD COMPUTER OPBOUWEN *** 

360 RESTORE 
370 FOR X = 1 TO 5 

380 READ Y>V :REM GROOTTE EN SOORT 

390 Z = INT< RND(0) * (10 -Y) + 1) 

400 L = INT(RND<0) * 10 + 1) 

410 H = INT(RND(0) * 2 ) 

420 IF H - 1 THEN 470 
430 REM ** WIS5ELEN VAN Z MET L. ** 

440 M Z 
450 Z = L 
460 L = M 

470 Q = 0 :REM DEEL 1 MAT A 

480 GOSUB 540 
490 IF M “ 1 THEN 390 
500 NEXT X 
510 RETURN 
520 : 

530 REM *** CONTROLE OP SCHIP *** 


:REM DATAPOINTER VOORAAN 

:REM DUMMY LEZEN 
:REM START WAARDE 

:REM SYMBOLEN 

:REM NAMEN SCHEPEN 
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540 R1 — Z — 1 

550 R2 = Z + Y 

560 K1 = L - 1 

570 K2 = L + 1 

580 IF H = 1 THEN 610 

590 R2 - Z + 1 

600 K2 = L + Y 

610 M = 0 :REM HULPVARIABELE 

620 FOR I * R1 TO R2 

630 FOR J = K1 TO K2 

640 IF I < 1 OR J < 1 THEN 700 

650 IF I > 10 OR J > 10 THEN 700 

660 IF Ad + 0 * 10, J) = 1 THEN 700 

670 I = R2 :REM LUS-TELLER OP MAXIMUM 

680 J = K2 5 REM LUS-TELLER OP MAXIMUM 

690 M = 1 :REM FOUT 

700 NEXT J 

710 NEXT I 

720 IF M = 1 THEN 890 

730 REM ** SCHIP PLAATSEN ** 

740 R1 -2 

750 R2 = Z + Y - 1 

760 K1 = L 

770 K2 - L 

780 IF H = 1 THEN 810 

790 R2 = Z 

800 K2 = L. + Y - 1 

810 M = 1 

820 IF K2 > 10 OR R2 > 10 THEN 890 

830 FOR I = R1 TO R2 

840 FOR J = K1 TO K2 

850 A<I + 0 * 10,J) = V 

860 NEXT J 

870 NEXT I 

880 M - 0 

890 RETURN 

900 : 

910 REM *** SPEELVELD SPELER OPBOUWEN *** 

920 RESTORE 

930 REM ** ZEE SPELER SCHOONVEGEN ** 

940 FOR 1=11 TO 20 
950 FOR J = 1 TO 10 
960 A<I,J) = 1 
970 NEXT J 
980 NEXT I 
990 S = 1 

1000 Q = 1 s REM DEEL 2 MAT A 

1010 FOR X = 1 TO 5 
1020 READ Y,V 

1030 D$ = " -VLOOTOPBOUW-" 

1040 REM ** ZEE AFDRUKKEN ** 

1050 GOSUB 1300 

1060 PRINT "GEEF X EN Y-COORD VAN ";B*(X)5 
1070 PRINT " LENGTE “;Y5 
1080 INPUT L,Z 
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1090 IF L < 1 OR L > 10 THEN .1030 

1100 IF Z < 1 OR Z > 10 THEN 1030 

1110 PRINT "LIGGING NOORD-ZUID OF WEST-OOST "; 

1120 INPUT AS 

1130 A* = LEFTS(AS?1) 

1140 H = 1 

1150 IF AS = "N" THEN 1190 
1160 H = 0 

1170 IF AS <> "W" THEN 1110 
1180 REM ** CONTROLE OP SCHIP ** 

1190 GOSUB 540 

1200 IF M ~ 1 THEN 1030 

1210 NEXT X 

1220 REM ** ZEE-AFDRUK ** 

1230 GOSUB 1300 

1240 PRINT "NOG WIJZIGEN <JA/NEE> "? 

1250 INPUT AS 

1260 IF LEFTS(AS»1) = "J" THEN 920 
1270 RETURN 
1280 : 

1290 REM *** ZEE-AFDRUK *** 

1300 CLS :REM SCHERM WISSEN 

1310 AS * COMPUTER 

1320 IF Q = 0 THEN 1340 

1330 AS * SPELER 

1340 PRINT "*** ZEESLAG *** "5DS 

1350 PRINT TAB(15)AS 

1360 IF K = 0 THEN 1380 

1370 PRINT TAB(K * 3 - 2 + 5)"*" 

1380 PRINT TAB(6)"1 23456"; 

1390 PRINT ”7 8 9 10" 

1400 FOR I = 1 TO 10 
1410 PRINT 15 
1420 IF I <> R THEN 1440 
1430 PRINT TAB < 3)"*"5 
1440 PRINT TAB(5)5 
1450 P - I + 0 * 10 
1460 FOR J = 1 TO 10 
1470 AS - " . " 

1480 IF A(P?J> = -1 THEN 1520 
1490 IF Q = S THEN 1510 
.1500 IF A(P) J) < 7 THEN 1520 
1510 AS = AS(A(P> J)) 

1520 PRINT AS; 

1530 NEXT J 
1540 PRINT 
1550 NEXT I 
1560 RETURN 
1570 : 

1580 REM *** VERWERKIN6 SCHOT COMPUTER *** 

1590 GOSUB 1300 *REM SPEELVELD 

1600 X = A(R + 0*105K) - 1 

1610 A< R+0*10 » K) = A(R+O*10 ? K) + 6 

1620 PRINT "IS ER IETS GERAAKT <JA/NEE> "5 

1630 INPUT DS 



1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
17630 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


IF LEFT$(1) = "N" THEN 1660 
IF LEFT*<DSm1> <> "J" THEN 1620 
IF X = 0 THEN 1980 
RESTORE 

FOR I * 1 TO X 
READ Y*V 
NEXT I 

B < X ? 2 ) * B < X 9 2 ) + 1 sREM SCHOTEN SCHIP 

Z = R * 100 + K 

IF B(X? 2) * 1 THEN 1750 

IF Z > B(Xfl) THEN 1770 

B ( X 5 1 ) * Z 

REM ** SCHIP UITGESCHAKELD ? ** 

IF Y <> B(X 5 2) THEN 1980 
REM ** SCHIP GEZONKEN ** 

REM * OMGEVING SCHIP MERKEN * 

R = INT(B(X ?1)/100) 

K * B(X * 1) - R * 100 
R2 = R + Y - 1 
K2 = K 

IF R2 > 10 THEN 1860 

IF A(R2+Q*10 9 K2) = V + 6 THEN 1880 
R2 = R 

K2 = K + Y - 1 

FOR I = R - 1 TO R2 + 1 

FOR J * K - 1 TO K2 + 1 

IF I < 1 OR J < 1 THEN 1940 

IF I > 10 OR J > 10 THEN 1940 

IF A<1+0*10 ? J) <> 1 THEN 1940 

A(I+Q*10 9 J) a -1 

NEXT J 
NEXT I 

B( X 9 2) a B( X 9 2) * -1 

T a T + 1 SREM TOTAAL GEZONKEN SCHEPEN 

RETURN 


REM *** SCHOT SPEL.ER *** 

Q * 0 
S = 1 
R = 0 
K a 0 
D$ a » ■ 

GOSUB 1300 

PRINT "GEEF X 9 Y - COORD "5 
INPUT K9R 

IF K < 1 OR K > 10 THEN 2070 
IF R < 1 OR R > 10 THEN 2070 
D$ a "PLONS" 

IF A<R ? K) > 6 THEN 2190 
X a a<R ? K) 

A ( R 9 K) a x + 6 
IF X a 1 THEN 2200 
B(X-1 9 3) - B<X-1,3> - 1 
m a b*<x - i) 

REM ** ZEE- AFDRUK ** 
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2190 D$ = ”-RESULTAAT- " + D* 

2200 GOSUB 1300 

2210 H = 0 

2220 FOR I = 1 TO 5 

2230 IF B<I»3) <> 0 THEN 2250 

2240 H = H + 1 

2250 NEXT I 

2260 IF H <> 5 THEN 2280 

2270 T - 100 !REM 8PELER GEWONNEN 

2280 RETURN 
2290 : 

2300 REM *** ONBEKEND H = 1 *** 

2310 REM ** KOLOM ? ** 

2320 A1 = INT(RND(0) * 10 + 1) 

2330 A2 = 10 
2340 B1 = 1 
2350 B2 = 10 

2360 L " INT(RND(0) * 2) 

2370 H - -1 

2380 IF L = 0 THEN 2490 
2390 REM ** REGEL ? ** 

2400 B1 = A1 
2410 A1 = 1 

2420 IF H - -1 THEN 2490 
2430 A2 - A1 
2440 A1 - 1 

2450 IF L = 0 THEN 2490 

2460 B2 = B1 

2470 B1 = 1 

2480 A2 = 10 

2490 H = H + 1 

2500 FOR I ~ A1 TO A2 

2510 FOR J = B1 TO B2 

2520 IF A(1+0*10,J) < 0 OR A(I+Q*10»J) > 6 THEN 2580 

2530 R = I 

2540 K J 

2550 H = 9 

2560 I = A2 

2570 J = B2 

2580 NEXT J 

2590 NEXT I 

2600 IF H = 0 THEN 2430 
2610 RETURN 
2620 : 

2630 REM *** BCHOT COMPUTER *** 

2640 Q = 1 

2650 S = 1 

2660 H = 1 

2670 RESTORE 

2680 FOR I = 1 TO 5 

2690 READ Y»V 

2700 IF B(I»2) < 0 OR B<111) - 0 THEN 2760 
2710 X = I 
2720 H = 2 

2730 IF B<I»2) - 1 THEN 2750 





2740 H = 3 
2750 I ■ 5 
2760 NEXT I 

2770 ON H GOSUB 2320 >3130 >2850 
2780 S = 1 
2790 D* = "" 

2800 GOSUB 1590 
2810 RETURN 
2820 : 

2830 REM *** BESCHADIGD H - 3 *** 

2840 REM * VERTIKAAL * 

2850 L - 0 :REM HULPVAR. 

2860 H = 0 :REM HULPVAR 

2870 R - INT(B(X >1)/100) 

2880 K = B(X >1)--R*100 

2890 FOR 1 = R - Y TO R + Y 

2900 IF I < 0 OR I > 10 THEN 2940 

2910 IF A<1+0*10,K) <> V + 6 OR I “ R THEN 2940 

2920 H = 1 

2930 I = R + Y 

2940 NEXT I 

2950 IF H = 1 THEN 2980 : REM VERTICAAL. 

2960 REM * HORIZONTAAL * 

2970 L = 1 

2980 X = 1 

2990 I a R 

3000 J = K 

3010 X = X * -1 

3020 I a I + (H * X) 

3030 J ■ J + (L * X) 

3040 IF I < 1 OR J < 1 THEN 3010 
3050 IF I > 10 OR J > 10 THEN 3100 
3060 IF A(I+Q*10>J) - V + 6 THEN 3020 

3070 IF A(I+O*10>J) = -1 OR A(I+0*10> J) = 7 THEN 3010 

3080 R = I 

3090 K « J 

3100 RETURN 

3110 : 

3120 REM *** AANGESCHOTEN H - 2 *** 

3130 R1 = INT(B(X>1)/100) 

3140 K1 = B(X>1) - R1 * 100 
3150 FOR I = R1 - 1 TO R1 + 1 
3160 FOR J = K1 - 1 TO K1 + 1 
3170 IF I < 1 OR J < 1 THEN 3260 
3180 IF I > 10 OR J > 10 THEN 3260 
3190 IF I <> R1 AND J <> K1 THEN 3260 
3200 IF I « R1 AND J = K1 THEN 3260 

3210 IF A(I+Q*10> J) = -1 OR A<I+O*10>J) = 7 THEN 3260 

3220 R = I 

3230 K = J 

3240 I a ri + i 

3250 J a K1 + 1 

3260 NEXT J 

3270 NEXT I 

3280 RETURN 
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3290 : 

3300 REM *** RESULTAAT *** 

3310 D* = "SPELER " 

3320 Q = 0 

3330 S » 1 

3340 IF T = 100 THEN 3380 
3350 Q = 1 

3360 S = 0 

3370 D* = "COMPUTER " 

3380 D$ = D$ + "GEWONNEN" 

3390 GOSUB 1300 
3400 RETURN 
3410 : 

3420 REM **** STUURMODULE **** 

3430 REM *** INITIALISEREN *** 

3440 GOSUB 120 

3450 REM *** SPEELVELD OPBOUWEN COMPUTER *** 
3460 GOSUB 360 

3470 REM *** SPEELVELD SPELER OPBOUWEN *** 
3480 GOSUB 920 

3490 REM *** SCHOT SPELER *** 

3500 GOSUB 2010 

3510 IF T = 100 THEN 3560 

3520 REM *** SCHOT COMPUTER *** 

3530 GOSUB 2640 

3540 IF T < 5 THEN 3500 

3550 REM *** RESULTAAT *** 

3560 GOSUB 3310 
3570 END 



Voorbeeld 

*** ZEESLAG *** 


1 2 3 


1 

z 

3 

4 

5 

6 

7 

8 

9 

10 

GEEF 


- COMPUTER 
4 5 6 7 


COORD 5 ? 5 
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*** ZEESLAG *** 


1 

v 

3 

4 

5 * 

6 

7 

8 

9 

10 


2 3 4 


PLONS 

COMPUTER 

* 

5 6 7 


* 


8 


9 10 


*** ZEESLAG *** 

- SPELER - 
* 



1 2 

3 

4 

5 

6 

7 

8 

9 

10 

1 * 

-V— . 





-M~ 



-K- 

xL 

-V- . 





~M~ 



~K~ 

3 

-V- . 





~M~ 



—K— 

4 

-V- . 








-K~ 

5 

-V- . 









6 

. „ 









7 

m • 


■ 







8 

. , 


• 







9 

. . 


m 







10 

-F—F~ 

—F- 







~D~ 


IS ER IETS GERAAKT <JA/NEE> NEE 


100 


































4. Algemene programma’s 


4.1 Vleugelprofiel 

Een van de vervelendste klusjes in de vliegtuigmodelbouw is het uitzetten van profielen 
aan de hand van profielgegevens. De keuze van het profiel is vaak een moeilijke zaak 
omdat het profiel de vluchtkarakteristiek in sterke mate bei'nvloedt. Een zweefvliegtuig 
met een bol-bolprofiel lijkt dan ook ondenkbaar, maar een radiobestuurd modelvliegtuig 
zou best uitgerust kunnen zijn met zo’n bol-bolprofiel (bijvoorbeeld een NACA 0018 pro¬ 
fiel). 



Vaak vindt men de bekende profielen in modelbouwtijdschriften of boeken over aerodyna- 
mica. In een aantal bibliotheken zijn hele dikke boeken met profielgegevens. 

De maatgegevens van een profiel zijn gestandaardiseerd. Zo zijn alle gegevens van het 
profiel uitgedrukt in een percentage van de koorde. De koorde wordt op 100% gesteld. De 
maten van de profielen worden in drie kolommen weergegeven. In de eerste kolom wordt 
de afstand aangegeven vanaf de neus van het profiel. In de tweede kolom wordt de bo- 
venzijde van het profiel gegeven t.o.v. de hartlijn. De derde kolom geeft de onderzijde van 
het profiel. 

Als voorbeeld om het bovenstaande te verduidelijken is gekozen voor het bekende Clark 
YH profiel. Dit profiel wordt veel gebruikt voor eenvoudige radiobestuurde vliegtuigen. 
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CLARK YH 


afstand gemeten vanaf 
de neus van het profiel 

bovenzijde 

onderzijde 

0.0 

3.50 

3.50 

1.25 

5.45 

1.93 

2.50 

6.50 

1.47 

5.00 

7.90 

0.93 

7.50 

8.85 

0.63 

10.00 

9.60 

0.42 

15.00 

10.68 

0.15 

20.00 

11.36 

0.03 

30.00 

11.70 

0.0 

40.00 

11.40 

0.0 

50.00 

10.51 

0.0 

60.00 

9.15 

0.0 

70.00 

7.42 

0.06 

80.00 

5.62 

0.38 

90.00 

3.84 

1.02 

95.00 

2.93 

1.40 

100.00 

2.05 

1.85 


Nadat alle gegevens zijn ingevoerd, kunnen nog correcties worden aangebracht. Het is 
niet denkbeeldig dat er fouten zijn gemaakt bij de invoer. Om te kunnen corrigeren moet 
men het regelnummer geven. Wil men de gegevens op de regel alleen bekijken en niet 
wijzigen, dan tikt men bij de eerste vraag -9 in. Heeft men helemaal niets meer te wijzi- 
gen, dan geeft men bij ’WELKE REGEL WILT U WIJZIGEN’ een nul. 

Ten slotte geeft men op, welke koorde het profiel moet krijgen. Deze afstand van neus tot 
aan achterligger wordt opgegeven in millimeters. Heeft men alle gegevens ingevoerd dan 
vindt de berekening plaats. De berekening kan herhaald worden met dezelfde profiel- 
gegevens, maar met een andere koorde. 

Wanneer men het programma wil verlaten, geeft men bij de vraag over de koorde van het 
profiel een nul. 

Heeft men een computer of printer, waarop men ’high resolution’ plaatjes kan maken, dan 
zou men kunnen overwegen het profiel op het beeldscherm of printer uit te zetten. 
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Programma 

10 REM *** VLEUGELPROFIEL *** 

20 DIM A < 25 > 3) > B<25,3> 

30 GOTO 1360 
40 : 

50 REM *** INITITIALISEREN *** 

60 FOR I = 1 TO 25 
70 FOR J = 1 TO 3 
80 A <Ij J) = 0 
90 NEXT J 
100 NEXT I 
110 T = 0 
120 RETURN 
130 : 

140 REM *** INVOER *** 

150 FOR I = 1 TO 25 

160 IF (I-l)/3 - INT< <I — 1)/3) <> 0 THEN 210 
170 REM ** KOP AFDRUKKEN ** 

180 GOSUB 1020 
190 PRINT 

200 REM ** INPUT-BLOK ** 

210 X = I 

220 GOSUB 1080 

230 IF H <> 0 THEN 260 

240 T = I 

250 I = 25 sREM LUS-TELLER OP MAXIMUM 

260 NEXT I 

270 IF T <> 0 THEN 290 
280 T = 25 
290 RETURN 
300 : 

310 REM *** LENGTE PROFIEL *** 

320 REM ** KOP AFDRUKKEN ** 

330 GOSUB 1020 

340 PRINT “GEEF DE LENGTE IN MILLIMETERS WAAROP" 

350 PRINT "HET PROFIEL MOET WORDEN UITGEZET." 

360 PRINT "<STOP - 0> HOEVEEL MILLIMETER "5 

370 INPUT M 

380 IF M < 0 THEN 340 

390 RETURN 

400 : 

410 REM *** CORRECTIE-ROUTINE *** 

420 REM ** KOP AFDRUKKEN ** 

430 GOSUB 1020 

440 PRINT "WELKE REGEL WIJZIGEN <STOP = 0> "5 

450 INPUT X 

460 IF X = 0 THEN 570 

470 IF X < 0 OR X > T THEN 440 

480 PRINT "OPGENOMEN GEGEVENS" 

490 PRINT "REGEL .“5X 

500 PRINT "7. VANAF NEUS " ;A(Xil) 

510 PRINT BOVENZIJDE “ ?A(X»2) 

520 PRINT "7. ONDERZIJDE ";A<X»3> 

530 PRINT "INDIEN U NIET WILT WIJZIGEN TOETS BIJ DE" 





540 PRINT "EERSTE VRAAG -9 + <RETURN> " 

550 REM ** INPUT-BLOK ** 

560 GOSUB 1080 
570 RETURN 
580 : 

590 REM *** BEWERKING *** 

600 FOR I = 1 TO T 
610 FOR J = 1 TO 3 

620 B<I 5 J ) - M * A(15 J)/100 :REM MAAT BEPALEN 

630 B<I«J) = INT(B(I * J) * 10 + 0.5)/10 :REM AFRONDEN 

640 NEXT J 

650 NEXT I 

660 RETURN 

670 : 

680 REM *** UITVOER *** 

690 FOR I - 1 TO T 

700 IF (I-l)/5 - INT<<1-1)/5> <> 0 THEN 810 
710 IF I = 1 THEN 760 
720 REM ** WACHTEN ** 

730 GOSUB 1250 

740 IF H - 0 THEN 990 

750 REM ** KOP AFDRUKKEN ** 

760 GOSUB 1020 

770 PRINT "PROFIEL UITGEZET OP ";M;"MM." 

780 PRINT "MATEN IN MILLIMETERS !" 

790 PRINT 

800 PRINT "VANAF NEUS BOVENZIJDE ONDERZIJDE" 

810 FOR J = 1 TO 3 
820 A$ = ”0.0" 

830 IF B(I * J) - 0 THEN 920 
840 B$ -• ”0" 

850 IF INT<B(11J)) < 0.001 THEN 870 
860 B$ = “” 

870 A$ = STR*(B(I»J)> !REM NUMERIEK => ALFA 

880 A$ = RIGHTS(A$? LEN(A$)-1) 

890 C$ = RIGHT$(A$)2) 

900 IF LEFT*(C$>1) = THEN 920 

910 A$ = A$ + ".0" 

920 A$ = B$ + A$ 

930 L = 10 - LEN(A$) 

940 PRINT TAB(<J-l) * 12 + L)A$? 

950 NEXT J 
960 PRINT 
970 NEXT I 

980 GOSUB 1250 :REM ** WACHTEN ** 

990 RETURN 
1000 : 

1010 REM *** KOP AFDRUKKEN *** 

1020 CLS :REM SCHERM WISSEN 

1030 PRINT "*•** VLEUGELPROFI EL ***" 

.1040 PRINT 
1050 RETURN 
1060 : 
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1070 REM *** INPUT BLOK *** 

1080 H = 0 

1090 PRINT X ? "GEEF 7. VANAF NEUS PROF I EL " ? 
1100 INPUT A 

1110 IF A - -9 AND T <> 0 THEN 1220 

1120 IF A > 100 THEN 1090 

1130 A(X >1) = A 

1140 IF A = 100 THEN 1160 

1150 H = 1 

1160 PRINT X 5 "GEEF 7. BOVENZIJDE "5 
1170 INPUT A(X»2) 

1180 PRINT X ? "GEEF 7. ONDERZ IJDE " ? 

1190 INPUT A(X5 3) 

1200 IF A(X ? 2) < A< X 5 3) THEN 1160 
1210 PRINT 
1220 RETURN 
1230 : 

1240 REM *** WACHTEN *** 

1250 PRINT "WILT U DOORGAAN <JA/NEE> "5 
1260 INPUT A$ 

1270 A$ = LEFT$(A$j1) 

1280 H ® 0 sREM STUURVARIABELE 

1290 IF A$ = "N" THEN 1320 
1300 H = 1 

1310 IF A$ <> "J" THEN 1250 
1320 RETURN 
1330 : 

i340 REM **** BTUURMODULE **** 

1350 REM *** INITIAL.ISEREN *** 

1360 G05UB 60 

1370 REM *** INVOER *•** 

1380 GOSUB 150 

1390 REM *** CORRECTIE *** 

1400 GOSUB 430 

1410 IF X <> 0 THEN 1400 

1420 REM *** LENGTE PROFIEL *** 

1430 GOSUB 330 

1440 IF M = 0 THEN 1500 

1450 REM *** BEREKENING *** 

1460 GOSUB 600 

1470 REM *** UITVOER *** 

1480 GOSUB 690 

1490 IF H = 1 THEN 1430 

1500 END 
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Voorbeeld 

*** VLEUGELPROFIEL *** 


1 

GEEF 7. 

, VANAF NEUS 

PROFIEL 

0 

1 

GEEF 7. 

BOVENZIJDE 

3.5 


1 

GEEF 7. 

ONDERZIJDE 

3.5 


2 

GEEF 7. 

VANAF NEUS 

PROFIEL 

1.25 

2 

GEEF 7. 

BOVENZIJDE 

5.45 


2 

GEEF 7. 

ONDERZIJDE 

1.93 


3 

GEEF 7. 

VANAF NEUS 

PROFIEL 

2.5 

3 

GEEF 7. 

BOVENZIJDE 

6.5 


3 

GEEF 7. 

ONDERZIJDE 

1.47 


*** 

VLEUGELPROFIEL *** 


4 

GEEF 7. 

VANAF NEUS 

PROFIEL 

5 

4 

GEEF 7. 

BOVENZIJDE 

7.9 


4 

GEEF 7. 

ONDERZIJDE 

.93 


5 

GEEF 7. 

VANAF NEUS 

PROFIEL 

7.5 

5 

GEEF 7. 

BOVENZIJDE 

8.85 


5 

GEEF 7. 

ONDERZIJDE 

.63 


6 

GEEF 7. 

VANAF NEUS 

PROFIEL 

10 

6 

GEEF 7. 

BOVENZIJDE 

9.6 


6 

GEEF 7. 

ONDERZIJDE 

,42 


*■** 

VLEUGELPROFIEL *** 


16 

GEEF 

7. VANAF NEUS 

PROFIEL 

95 

16 

GEEF 

7. BOVENZI JDE 

2.93 


16 

GEEF 

7. ONDERZ I JDE 

1.4 


17 

GEEF 

7. VANAF NEUS 

PROFIEL 

100 

17 

GEEF 

7. BOVENZI JDE 

2.05 


17 

GEEF 

7. ONDERZ IJDE 

1.85 



*** VLEUGELPROFIEL *** 

WELKE REGEL WIJZIGEN CSTOP = 0> 0 

*** VLEUGELPROFIEL *** 

GEEF DE LENGTE IN MILLIMETERS WAAROP 
HET PROFIEL MOET WORDEN UITGEZET. 
<STOP = 0> HOEVEEL MILLIMETER 1000 
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*** VLEUGELPROFIEL *** 

PROFIEL UITGEZET OP 1000 MM. 

MATEN IN MILLIMETERS ! 

VANAF NEUS BOVENZIJDE ONDERZIJDE 


0.0 35.0 35.0 

12.5 54.5 19.3 

25.0 65.0 14.7 

50.0 79.0 9.3 

75.0 88.5 6.3 


WILT U DOORGAAN <JA/NEE> JA 


*** VLEUGELPROFIEL *** 

PROFIEL UITGEZET OP 1000 MM. 

MATEN IN MILLIMETERS ! 

VANAF NEUS BOVENZIJDE ONDERZIJDE 


100.0 96.0 4.2 

150.0 106.8 1.5 

200.0 113.6 0.3 

300.0 117.0 0.0 

400.0 114.0 0.0 


WILT U DOORGAAN <JA/NEE> 


j 
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4.2 Kalender 


Dit programma maakt voor een bepaald jaar de kalender aan met de aanduidingen van de 
dagen. Hiertoe geeft men bij de vraag 'welk jaar’ het jaar in vier cijfers en bij de vraag 
’welke maand’ het maandnummer dat men hebben wil. Wil men alle maanden van het jaar 
hebben dan geeft men bij de vraag 'welke maand’ een nul. 

Het programma is gebaseerd op de berekening van Zeller. 



Dit programma is ook als subroutine in andere programma’s te gebruiken. Bijvoorbeeld in 
een programma, verjaardagskalender. In een interne data-file plaatst men alle namen van 
familie, vrienden en kennissen van wie men de verjaardag wil onthouden met de bijbeho- 
rende verjaardagsdatum. Wordt een maand op het beeldscherm gezet, dan worden tege- 
lijkertijd alle verjaardagen aangegeven van mensen die in de desbetreffende maand jarig 
zijn. 
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Programma 

10 REM *** KALENDER *** 

20 DIM A<7,6) 

30 GOTO 1070 
40 : 

50 REM *** INI UAL I BE REN *** 

60 C* = "303232332323" 

70 D* = “ MAD IWODOVRZ AZ0 11 

80 G$ - "JANFEBMRTAPRMEIJUNJULAUGSEPOKTNOVDEC 
90 RETURN 
100 : 

110 REM *** MAANDBEREKENING *** 

120 REM ** BEPALING LENGTE VAN DE MAAND ** 

130 E* = LEFT$< C$ili) 

140 D = 28 + VAL< RIGHT$(E$i1)) 

150 REM ** BEPALING SCHRIKKELJAAR ** 

160 IF Y / 4 - INT(Y/4) <> 0 THEN 200 
170 IF Y = 2000 OR M <> 2 THEN 200 
180 D = D + 1 

190 REM *** BEPALING EERSTE V.D. MAAND *** 

200 GOSUB 910 

210 REM *** MAT A OPBOUWEN *** 

220 H = 1 

230 FOR J = 1 TO 6 

240 FOR I = 1 TO 7 

250 P - I + < J - 1) * 7 

260 A (I» J) = 0 

270 IF P < A OR H > D THEN 300 

280 A(I» J) = H 

290 H - H + 1 

300 NEXT I 

310 NEXT J 

320 REM ** BEPALING NAAM VAN DE MAAND ** 

330 H$ = LEFT*(G$ 5 M * 3) 

340 H$ = RIGHT$(H$5 3) 

350 RETURN 
360 : 

370 REM *** UITVOER *** 

380 CLS sREM SCHERM WISSEN 

390 PRINT "*** KALENDER ***" 

400 PRINT "MAAND "jH$;Y 
410 PRINT 

420 FOR I - 1 TO 7 

430 E$ * LEFT$(D$> 2*1) 

440 PRINT RIGHT$<E$»2>! 

450 FOR J - 1 TO 6 

460 IF A(I» J) = 0 THEN 480 

470 PRINT TAB(vT *4 + 3) A(I>J); 

480 NEXT J 
490 PRINT 
500 NEXT I 
510 RETURN 
520 s 

530 REM *** INVOER *** 




540 CLS :REM SCHERM WISSEN 

550 PRINT "*** KALENDER ***" 

560 PRINT 

570 PRINT "WELK JAAR -4 CIJFERS- <BTOP = 0> " ; 

580 INPUT Y 

590 IF Y = 0 THEN 640 

600 IF Y < 1700 OR Y > 2200 THEN 570 

610 PRINT "WELKE MAAND <ALLE = 0> 

620 INPUT K 

630 IF K < 0 OR K > 12 THEN 610 
640 RETURN 
650 : 

660 REM *** BESTURING *** 

670 FOR Z = 1 TO 12 
680 M = Z 

690 IF K = 0 THEN 710 
700 M = K 
710 GOSUB 110 
720 REM ** UITVOER ** 

730 GOSUB 380 

740 REM ** INVOER II ** 

750 GOSUB 820 
760 IF K = 0 THEN 780 
770 Z = 12 !REM UIT LUS 

780 NEXT Z 
790 RETURN 
800 ! 

810 REM *** INVOER II *** 

820 PRINT "WILT U DOORGAAN <JA/NEE> 

830 INPUT L$ 

840 L* = LEFT$(L$,1) 

850 IF L* ■ "J“ THEN 880 
860 IF L$ <> "N" THEN 820 
870 K = 1 
880 RETURN 
890 : 

900 REM *** BEPALING EERSTE V.D. MAAND *** 

910 P =M 
920 L = Y 

930 IF P > 2 THEN 960 
940 P = P + 12 
950 L = L — 1 
960 E = INT(L/100) 

970 R = L - E * 100 

980 A = INT(2.6001 * (P-2) - 0.2) 

990 A = A + 1 + R + INT(R/4) + INT(E/4) - 2 * E 

1000 A = A - INT(A/7) * 7 

1010 IF A <> 0 THEN 1030 

1020 A = 7 

1030 RETURN 

1040 : 

1050 REM **** STUURMODULE **** 

1060 REM *** INITIALISEREN *** 

1070 GOSUB 60 

1080 REM *** INVOER *** 
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1090 GOSUB 540 

1100 IF Y = 0 THEN 1140 

1110 REM *** GESTURING *** 

1120 GOSUB 670 

1130 IF L$ - "J" THEN 1090 

1140 END 


Voorbeeld 


*** KALENDER *** 

WELK JAAR -4 CIJFERS- <STOP = 0> 
WELKE MAAND <ALLE = 0> 6 


*** KALENDER *** 
MAAND JUN 1983 


MA 


6 

13 

20 

27 

DI 


7 

14 

21 

28 

WO 

1 

8 

15 

22 

29 

DO 

2 

9 

16 

23 

30 

VR 

3 

10 

17 

24 


ZA 

4 

11 

18 

25 


zo 

5 

12 

19 

26 


WILT U 

DOORGAAN 


JA/NEE 

:> NEE 


1983 
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4.3 Chi-kwadraat 


De chi-kwadraat toets wordt onder andere gebruikt om na te gaan of bepaalde uitkomsten 
kloppen. Met een voorbeeld is dit snel duidelijk te maken. Stel dat men een dobbelsteen 
heeft waarvan men zegt dat het een zuivere dobbelsteen is. Volgens de theorie moet gel- 
den dat elk vlak van de dobbelsteen evenveel kans heeft om voorte komen. Zou men met 
zo’n dobbelsteen 600 keer gooien dan komt volgens de theorie de een honderd keer voor, 
de twee honderd keer, de drie honderd keer, de vier honderd keer, de vijf honderd keer en 
de zes honderd keer. Wanneer men ten slotte het experiment in werkelijkheid uitvoert, 
komen de bovengenoemde getallen er niet uit, maar de cijfers volgens onderstaand staat- 
je. 


aantal ogen 

aantal worpen 

1 

102 

2 

98 

3 

97 

4 

98 

5 

103 

6 

102 

totaal 

600 


Nu is het de vraag of de dobbelsteen met 95% zekerheid een zuivere dobbelsteen is. 
Voert men de gegevens in, in het programma dan kan men het antwoord vinden. 
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Andere voorbeelden waar de Chi-kwadraat toets bij gebruikt wordt, is o.a. bij de controle 
op vulmachines. 


Programma 

10 REM *** CHI-KWADRAAT *** 

20 DIM A(25 5 2) 

30 DATA 3.841?5.991 5 7.81559.488?11.07 
40 DATA 12.59?14.07?15.51?16.92?18.31 
50 DATA 19.68?21.03?22.36?23.68?25.00 
60 DATA 26.30?27.59?28.87?30.14?31.41 
70 DATA 32.67?33.92?35.17?36.42?37.65 
80 DATA 38.88?40.11?41.34?42.56?43.77 
90 GOTO 790 
100 s 

110 REM *** INITIAL.ISEREN *** 

120 T = 0 

130 X « 0 5 REM CHI-KWADRAAT 

140 REM ** MAT A SCHOONVEGEN ** 

150 FOR I = 1 TO 25 
160 A(I?1) = 0 
170 A(I? 2) = 0 
180 NEXT I 
190 RETURN 
200 : 

210 REM *** INVOER *** 

220 FOR I = 1 TO 25 

230 IF (I - 1) / 5 - INT< <I-1)/5) <> 0 THEN 280 

240 REM ** KOP AFDRUKKEN ** 

250 GOSUB 730 

260 PRINT "INDIEN GEEN INVOER?TOETS STOP + <RETURN>" 

270 PRINT 

280 PRINT "GEEF THEORETISCHE WAARNEMING "5 
290 INPUT A$ 

300 H = 0 

310 IF LEFT$<A*?1> * "S" THEN 380 
320 H = 1 

330 PRINT "GEEF DE FEITELIJKE WAARNEMING “5 
340 INPUT B$ 

350 A<I?1) * VAL(A$) 

360 A(I? 2) = VAL(B$) 

370 IF H = 1 THEN 400 
380 T « I - 1 

390 I « 25 s REM LUS-TELLER OP MAXIMUM 

400 NEXT I 

410 IF H ~ 0 THEN 430 
420 T « 25 
430 RETURN 
440 s 

450 REM *** BEREKENING *** 

460 FOR I = 1 TO T 

470 X = X + (A (I ? 1 ) - Ad? 2)) t 2 / A(I? 2) 

480 NEXT I 

490 V = T - 1 :REM AANTAL VRIJHEIDSGRADEN 
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500 RESTORE :REM DATAPOINTER VOORAAN 

510 FOR I = 1 TO V 

520 READ K 

530 NEXT I 

540 H = 0 

550 IF X < K THEN 570 
560 H « 1 
570 RETURN 
580 s 

590 REM *** UITVOER *** 

600 REM ** KOP AFDRUKKEN ** 

610 GOSUB 730 
620 PRINT 

630 PRINT M CHI-KWADRAAT : " 5 X 
640 PRINT "AANTAL VRIJHEIDSGRADEN "5 V 
650 PRINT "KRITIEKE WAARDE BIJ 5 7. IS "5K 
660 A* = "H0 WORDT GEACCEPTEERD." 

670 IF H = 0 THEN 690 

680 A$ = "H0 WORDT VERWORPEN." 

690 PRINT A$ 

700 RETURN 
710 : 

720 REM *** KOP AFDRUKKEN *** 

730 CLS :REM SCHERM WISSEN 

740 PRINT ”*** CHI-KWADRAAT *** M 
750 RETURN 
760 s 

770 REM **** STUURMODULE **** 

780 REM *** INITIALISEREN *** 

790 GOSUB 120 

800 REM *** INVOER *** 

810 GOSUB 220 

820 REM *** BEREKENING *** 

830 GOSUB 460 

840 REM *** UITVOER *** 

850 GOSUB 610 
860 END 
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Voorbeeld 


*** CHI-KWADRAAT *** 

INDIEN GEEN INVOER»TOETS STOP + <RETURN 

GEEF THEORETISCHE WAARNEMING 100 
GEEF DE FEITELIJKE WAARNEMING 102 
GEEF THEORETISCHE WAARNEMING 100 
GEEF DE FEITELIJKE WAARNEMING 98 
GEEF THEORETISCHE WAARNEMING 100 
GEEF DE FEITELIJKE WAARNEMING 97 
GEEF THEORETISCHE WAARNEMING 100 
GEEF DE FEITELIJKE WAARNEMING 98 
GEEF THEORETISCHE WAARNEMING 100 
GEEF DE FEITELIJKE WAARNEMING 103 


*** CHI-KWADRAAT *** 

INDIEN GEEN INVOERjTOETS STOP + <RETURN 

GEEF THEORETISCHE WAARNEMING 100 
GEEF DE FEITELIJKE WAARNEMING 102 
GEEF THEORETISCHE WAARNEMING STOP 


*** CHI-KWADRAAT *** 

CHI-KWADRAAT : .340226 
AANTAL VRIJHEIDSGRADEN 5 
KRITIEKE WAARDE BIJ 5 7. IS 11.07 
H0 WORDT GEACCEPTEERD. 




4.4 Huishoudboekje 

Hoe vaak wordt er niet gezegd 'waar blijft mijn geld? Waaraan heb ik het uitgegeven?’ Een 
van de eerste oplossingen is: opschrijven! Maar dan komt het. Hoe vergelijk je uitgaven 
met elkaar? Hoeveel procent geven we aan kleding uit? Wat hebben we in januari aan 
eten en drinken uitgegeven en wat hebben we er tot nu toe aan uitgegeven? Dit soort 
vragen zijn met dit programma op een eenvoudige manier te beantwoorden zonder dat 
men zelf hoeft te rekenen. Het enige dat men moet doen, is zorgen dat de interne data-file 
met de gegevens gevuld staat en de vragen goed worden beantwoord. 

Om uitgaven in de interne data-file op te nemen, moeten zij op een bepaalde manier geco- 
deerd staan. Men begint met een rekeningnummer. De codes komen overeen met de 
indexen op regel 60 t/m 140. Daarna voigt de datum op een genormaliseerde manier ge- 
schreven. Dit houdt in dat men op de eerste twee plaatsen van het getal het jaar aangeeft, 
de volgende twee plaatsen zijn voor de maand en de laatste twee zijn voor de dag. Bijvoor- 
beeld 14 februari 1983 wordt dan 830214. Na het rekeningnummer en de datum voigt 
tussen aanhalingstekens de omschrijving van de aankoop en ten slotte het bedrag. Alle 
onderdelen worden in de DATA-regel gescheiden door komma’s. Men hoeft bij invoer niet 
te letten op de data, deze komen automatisch in de goede maand terecht. Wei dient men 
erop te letten dat de laatste DATA-regel 999 bevat (zie programmaregel 2260). Deze 999 
geeft aan in het programma dat het einde van de interne data-file bereikt is. 

In het programma bestaan vier verschillende keuzemogelijkheden. Men kan de totalen 
per rekening krijgen tot en met de geboekte datum of over een specifieke maand. Men kan 
ook een specifieke rekening krijgen tot en met de laatste boekingsdatum of een bepaalde 
rekening over een speciale maand. 

Bij verschillende computers moet men er op letten dat de nauwkeurigheid van de getallen 
geen geweld wordt aangedaan. In de meeste computers geldt voor numerieke floating 
point-variabelen een nauwkeurigheid van acht tot negen cijfers. In dat geval zullen er niet 
snel problemen ontstaan. Is de nauwkeurigheid beperkt tot zes cijfers dan kunnen er vrij 
snel problemen ontstaan. Een oplossing is dan de floating point-variabelen, die de bedra- 
gen manipuleren, als dubbel precision getallen te definieren. 
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Programma 


10 REM *** HUISHOUDBOEKJE *** 

20 DIM A<9>,B$<9> 

30 GOTO I960 
40 : 

50 REM *** INI UAL I BERN *** 

60 B$<1> = "LEVENSMIDDELEN“ 

70 B$<2> = "VAKANTIE / UITGAAN" 
80 B$<3) = "AUTO/MOTOR/FIETS" 

90 B$(4) = "VERZEKERINGEN" 

100 B$ (5) = "ENERGIE EN WATER" 
110 B$(6) = "WOONLABTEN" 

120 B$(7) = "KLEDING" 

130 B$<8) = "STUDIE EN OVERIGEN" 
140 B$<9) = "OVERIGEN" 

150 RETURN 
160 : 


170 REM *** INVOER *** 

180 CLS :REM SCHERM WIBSEN 

190 PRINT "*** HUISHOUDBOEKJE *** 


200 PRINT 

210 PRINT "0 = BTOPPEN" 

220 PRINT "1 = REKENING OVER EEN BEPAALDE MAAND" 
230 PRINT "2 = REKENING T/M GEBOEKTE DATUM 
240 PRINT “3 = TOTAL.EN OVER EEN BEPAALDE MAAND" 
250 PRINT "4 = TOTALEN T/M GEBOEKTE DATUM" 

260 PRINT 

270 PRINT "WAT IS UW KEUZE "5 

280 INPUT K 

290 IF K = 0 THEN 370 

300 IF K < 0 OR K > 4 THEN 180 

310 IF K > 2 THEN 340 

320 REM ** INVOER REKENING-NUMMER ** 

330 GOBUB 400 


340 IF K » 2 OR K » 4 THEN 370 
350 REM ** INVOER MAAND ** 


360 GOBUB 530 


370 RETURN 
380 : 

390 REM *** INVOER REKENINGNUMMER *** 

400 CLS :REM SCHERM WISSEN 

410 PRINT "*** HUISHOUDBOEKJE ***" 

420 PRINT 

430 PRINT TAB< 4)"0 - ALLE REKENINGEN" 

440 FOR I = 1 TO 9 

450 PRINT TAB<3)I *TAB<5)“= ";B$(I) 

460 NEXT I 

470 PRINT "WELK REKENINGNUMMER KIEST U "5 
480 INPUT R 

490 IF R < 0 OR R > 9 THEN 470 
500 RETURN 
510 s 

520 REM *** INVOER MAAND *** 

530 PRINT "WELKE MAAND KIEST U "5 



540 INPUT M 

550 IF M < 1 OR M > 12 THEN 530 


560 RETURN 
570 : 

580 REM *** INLEZEN RECORD UIT INTERNE DATA FILE *** 
590 H = 0 
600 READ N 
610 IF N = 

620 H = 1 
630 READ D» A$» B 
640 IF N < 1 OR N > 9 

650 IF K = 4 THEN 730 

660 IF K = 2 THEN 720 

670 REM ** BEPAALDE MAAND ** 

680 J = INTID / 10000) 

690 Z = INTI ID - J * 10000) / 100) 

700 IF Z <> M THEN 590 
710 IF K = 3 THEN 730 
720 IF G <> N THEN 590 


:REM REKENINGNUMMER 

999 THEN 730 

:REM NOG GEEN EOF 
:REM DATUM»OMSCHRIJVING,BEDRAG 
THEN 590 


730 RETURN 
740 : 


750 REM *** VOORBEWERKING *** 
760 REM ** SCHOONVEGEN MAT A ** 
770 FOR I = 1 TO 9 


780 AID = 0 
790 NEXT I 


800 REM ** VARIABELEN OP STARTWAARDE ZETTEN ** 


810 8=0 
820 M = 0 
830 R = 0 
840 P = 0 
850 RESTORE 


• REM TOTAAL GENERAAL 

• REM MAAND ALLES 

:REM REKENING ALLES 
! REM PRINTREGELTELL.ER 
!REM DATAPOINTER VOORAAN 


860 RETURN 
870 : 

880 REM *** BEWERKING - TOTALEN *** 


890 REM ** RECORD LEZEN ** 

900 GOSUB 590 

910 IF H = 0 THEN 950 

920 AIN) = AIN) + B :REM TOTALISEREN 

930 S = S + B 

940 IF H = 1 THEN 900 

950 RETURN 

960 : 


970 REM *** UITVOER - TOTALEN *** 

980 CLS :REM SCHERM WISSEN 

990 PRINT "*** HU ISHOUDBOEK JE *** " 

1000 A$ = "T/M GEBOEKTE MAAND " 

1010 IF K = 4 THEN 1030 

1020 A$ = "OVER MAAND : "+STR$(M) 

1030 PRINT A$ 

1040 PRINT 

1050 FOR I = 1 TO 9 

1060 B = AID 


1070 REM ** PERCENTAGE’S ** 
1080 E = 0 
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1090 IF S « 0 THEN 1120 

1100 E * I NT < B / S * 1000 + 0 „ 5 ) /10 

1110 REM ** POSITIONEREN BEDRAG ** 

1120 GOSUB 1240 

1130 PRINT I5 T AB(3) B*(I)5TAB(22+L)A$? 

1140 PRINT TAB (33) E" TAB< 38) " V ." 

1150 NEXT I 

1160 PRINT TAB(20)"-" 

1170 IF S = 0 THEN 1210 
1180 B = S 
1190 GOSUB 1240 

1200 PRINT TAB ( 3) " TOTAAL" 5 TAB< 22 + L ) A$ 5 TAB ( 34 ) " 1007." 
1210 RETURN 
1220 : 

1230 REM *** POSITIONEREN BEDRAG *** 

1240 B$ = "—" 

1250 W « B - INT(B) sREM GETAL ACHTER KOMMA 

1260 A* « STR$<INT(B)) 

1270 IF W a 0 THEN 1320 
1280 W a INT(W * 100 + 0-5) 

1290 B* = STR*<W) 

1300 B$ a “ 00 “ + RIGHT$(B$? LEN(B$)-1) 

1310 B$ = RIGHTS(B$i2) 

1320 A$ a a$ + + B$ 

1330 IF B <> 0 THEN 1350 

1340 A$ a "- 

1350 L a 10 - LEN<A$) 

1360 RETURN 
1370 : 

1380 REM *** BEWERKING-REKENING *** 

1390 FOR Q a i JO 9 

1400 RESTORE sREM DATAPOINTER VOORAAN 

1410 S a 0 

1420 P a 0 SREM BLADTELLER OP STARTWAARDE 

1430 G a Q 

1440 IF R a 0 THEN 1470 
1450 G a R 

1460 REM ** RECORD LEZEN ** 

1470 GOSUB 590 
1480 IF H a 0 THEN 1550 
1490 A(G) a a<G> + B 
1500 S a s + B 

1510 REM ** REGEL UITVOER ** 

1520 GOSUB 1660 

1530 IF H a i THEN 1470 

1540 REM ** TOTAALREGEL OPBOUWEN ** 

1550 D a 0 

1560 A$ a “TOTAAL REKENING" 

1570 B a s 
1580 P a -9 
1590 GOSUB 1660 

1600 IF R a 0 AND A$ a »J“ THEN 1620 

1610 Q a 10 sREM LUS-TELLER MAXIMAAL 

1620 NEXT Q 

1630 RETURN 
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1640 : 

1650 REM *** REGEL AFDRUKKEN *** 

1660 IF P <> 0 AND S <> 0 THEN 1720 

1670 CLS :REM SCHERM WISSEN 

1680 PRINT "*** HUISHOUDBOEKJE ***" 

1690 PRINT "REKENINGNUMMER !"5G;B*(G) 

1700 PRINT 

1710 PRINT " DATUM OMSCHRIJVING BEDRAG" 

1720 IF P > -.1 THEN 1740 

1730 PRINT TAB(30) "-■ 

1740 IF D = 0 THEN .1760 

1750 PRINT D; :REM DATUM 

.1760 PRINT T AB (8) LEFT* < A*, 20) ; ! REM OMSCHRIJVING 

1770 REM ** POSITIONEREN BEDRAG ** 

1780 GOSUB .1240 

1790 PRINT TAB(30+L)A* :REM BEDRAG 

1800 P = P + 1 

1810 IF P > 0 AND P < 8 THEN 1860 
1820 PRINT TAB<30)"==========“ 

1830 REM ** WACHTEN ** 

1840 GOSUB 1890 
1850 P = 0 
1860 RETURN 
1870 : 

1880 REM *** WACHTEN *** 

1890 PRINT "WILT U DOORGAAN <JA/NEE> "; 

1900 INPUT A* 

1910 A* = LEFT*(A*.1) 

1920 RETURN 
1930 : 

1940 REM **** STUURMODULE **** 

1950 REM *** INITIALISEREN *** 

1960 GOSUB 60 

1970 REM *** VOORBEWERKING *** 

1980 GOSUB 770 

1990 REM *** INVOER *** 

2000 GOSUB 180 

2010 IF K = 0 THEN 2130 

2020 IF K > 2 THEN 2050 

2030 REM *** BEWERKING--BE REKEN ING *** 

2040 GOSUB 1390 

2050 IF K < 3 THEN 1980 

2060 REM *•** BEWERKING-TOTALEN *•** 

2070 GOSUB 900 

2080 REM *** UITVOER TOTALEN *■** 

2090 GOSUB 980 

2100 REM *** WACHTEN *** 

2110 GOSUB 1890 

2120 IF A* = "J" THEN 1980 

2130 END 

2140 : 

2150 : 

2160 REM *** DATAREGELS *** 

2170 REM *FORMAT REKENINGNRj DATUM» OMSCHRIJV. i BEDRAG * 
2180 DATA 1,830103."EDAH'S 35.34 
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2190 

DATA 

2200 

DATA 

2210 

DATA 

2220 

DATA 

2230 

DATA 

2240 

DATA 

2250 

DATA 

2260 

DATA 


9,830112*"CADEAU ANN",12.75 
6,830131,HYPOTHEEK,1100 
7,830213,"JAS PETER",65 

7.830216, "BROEK MARTINE",60.05 
5,830215,GEB,325.75 
8,830228,"COST ACCOUNTING", 

4.830217, BRANDVERZEKERING,1 
999 


Is) Vl 





Voorbeeld 

*** HUISHOUDBOEKJE *** 

0 = STOPPEN 

1 « REKENING OVER EEN BEPAALDE MAAND 

2 = REKENING T/M GEBOEKTE DATUM 

3 ■ TOTALEN OVER EEN BEPAALDE MAAND 

4 = TOTALEN T/M GEBOEKTE DATUM 

WAT IB UW KEUZE 4 


*** HUISHOUDBOEKJE *** 
T/M GEBOEKTE MAAND 


1 

LEVENSMIDDELEN 

35 5 34 

2 "/. 

2 

VAKANTIE / UITGAAN 

- 

0 7. 

3 

AUTO/MOT 0 R/FIE TS 


0 7. 

4 

VERZEKERINGEN 

1205 — 

6.7 7. 

5 

ENERGIE EN WATER 

325 ? 75 

18.2 

6 

WOONLASTEN 

1 1005 — 

61.3 

7 

KLEDING 

125 5 05 

7 7. 

8 

STUDIE EN OVERIGEN 

75 5 05 

4.2 7. 

9 

OVERIGEN 

12575 

. 7 7. 


TOTAAL 

1793594 

1007. 


WILT U DOORGAAN <JA/NEE> NEE 
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4.5 Hypotheekvergelijking 

In een tijd waarin de hypotheekrentes onder druk staan, kan het interessant zijn van hypo- 
theek te wisselen. Vaak is dit een oneindig rekenwerk dat zonder computer best te doen 
valt, maar dan wel veel tijd vergt. 

Dit programma vraagt systematisch een aantal gegevens over de oude hypotheek en 
vraagt daarna een aantal gegevens over de nieuwe hypotheek. Er wordt bij dit programma 
van uitgegaan dat men een normale annui'teitenlening heeft. 

Het resultaat van de berekening is de nieuwe annui'teit, de bruto maandelijkse last, het 
eventuele bruto voordeel en de eventuele terugverdientijd. Het resultaat is slechts een 
benadering, dat betekent dat de berekeningen niet exact zijn. De terugverdientijd is een 
indicatie of het zinvol is om een andere hypotheek te nemen. De terugverdientijd is de 
periode die nodig is om het totaal van kosten te dekken met het voordeel per maand. 
Mocht het voordeel negatief zijn, dan wordt de terugverdientijd niet berekend. Verder 
dient men er op bedacht te zijn dat er vrij weinig beveiligingen in het programma verwerkt 
zijn om foutieve invoer te ondervangen. Dit is gedaan omdat het anders veel te lang zou 
worden. Men kan dit er zelf alsnog in bouwen. 

Verder dient men na te gaan of de tarieven in de interne data-file nog wel up to date zijn. Er 
is een aantal manieren om dittecontroleren. E6n manier is om een makelaarte bellen. De 
andere manier is contact opnemen met de Vereniging Eigen Huis. Dit laatste geldt uitslui- 
tend voor leden van de vereniging. 

Aan de hand van een voorbeeld zal het programma worden uitgelegd. Albert en Marijke 
de Vries uit Voorschoten hebben twee jaar geleden een Premie B-woning gekocht met 
gemeentegarantie. De hypothecaire lening is 170 000 gulden groot, tegen een renteper- 
centage van 9,9% maandelijks achteraf. De looptijd is 30 jaar. Zij betalen aan maandelijk¬ 
se annui'teit f 1478, -. Wanneer zij de lening in 6§n keer aflossen moeten zij drie maanden 
boete betalen. In de algemene voorwaarden staat dat zij jaarlijks op de vervaldatum 15% 
boetevrij mogen aflossen. 

De nieuwe lening, die zij kunnen krijgen is weer 170 000 gulden groot, maar tegen een 
rentepercentage van 8,2% tien jaar vast, te betalen maandelijks achteraf. Zij hebben geen 
taxatiekosten, omdat de gemeentegarantie naar de nieuwe hypotheekgever wordt over- 
geheveld. Albert en Marijke doen geen extra aflossingen, alleen moeten zij wel 1 % afsluit- 
provisie betalen. Het geld om de boete en de kosten te betalen hebben zij. 

Albert en Marijke zullen de nieuwe hypotheek accepteren, wanneer de terugverdientijd 
lager ligt dan drie jaar. De rentevastperiode is namelijk 10 jaar. De vraag is: nemen zij de 
nieuwe hypotheek ja of nee? 

Het antwoord is JA. Bekijk de resultaten van de berekening maar! 
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Programma 

10 REM *** HYPOTHEEK-VERGELIJKING *** 

20 REM — DATA BEDRAG/1000? NOTARISK .5 TAXATIEK. -- 

30 DATA 50?904?1 IB? 605957?123.90? 705 10105 144.55 

40 DATA 005 10635 165.205 905 11165.105.85 

50 DATA 100512695206.505 11051334 5 227.15 

60 DATA 12051399 5 247.805 13051464 5 268.45 

70 DATA 140515205289.105 150515935309.75 

80 DATA 160516505330.405 170517235351.05 

90 DATA 1805 17875 371.705 1905 1852*5 392.35 

100 DATA 2005 19175 4135 2105 1982*5 433.65 

110 DATA 220520465454.305 230521115474.95 

120 DATA 240521765495.605 05050 

130 DATA 38 :REM ROYEMENTSKOSTEN 

140 DATA "TARIEVEN PER 15 APRIL 1982" 

150 DIM A$(4) 

160 GOTO 2220 
170 : 

180 REM *** INITIALISEREN *** 

190 A*<1> * " HALFJAAR " 

200 A*(2) = " MAAND " 

210 A$<3) * " PROCENT " 

220 A$ < 4) * " MAANDEN " 

230 RETURN 
240 s 

250 REM *** FINANCIELE GEGEVENS I *** 

260 REM ** GEGEVENS OUDE HYPOTHEEK ** 

270 CLS 

280 PRINT "*** HYPOTHEEK-VERGELIJKING ***” 

290 PRINT ”— GEGEVENS OVER HUIDIGE HYPOTHEEK —“ 

300 PRINT 

310 PRINT "WAT IS HET RESTANT SCHULDBEDRAG "5 
320 INPUT HI 

330 PRINT "TEGEN WELK PERCENTAGE 
340 INPUT R1 

350 PRINT "HALFJAARLIJKS == 1 MAANDELIJKS = 2 ”5 
360 INPUT K1 

370 IF K1 < 1 OR K1 > 2 THEN 350 
380 M.1 = 6 

390 IF K1 « 1 THEN 410 
400 Ml = 1 

410 PRINT "BEDRAG AAN AFLOSSING + RENTE PER"5A*<K1)S” ” 
420 INPUT B1 

430 PRINT "BOETE BEREKEND O.B.V. PERC. « 1 MND « 2 "5 

440 INPUT T1 

450 IF T1 < 1 OR T1 > 2 THEN 430 

460 PRINT ”HOEVEEL"5 A$<2+T 1 ) 5 " BOETE " ? 

470 INPUT LI 

480 PRINT "BOETE OVER HOEVEEL PROCENT V.D. SCHUL.D "5 
490 INPUT Q1 
500 RETURN 
510 : 

520 REM *** FINANCIELE GEGEVENS II *** 

530 REM ** NIEUWE HYPOTHEEK ** 
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540 
550 
560 
570 
5 £30 
590 
600 
610 
620 
630 
640 
650 
660 
670 
600 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


CL8 sREM 8CHERM WIBSEN 

PRINT "*** HYPOTHEEK-VERGELIJKING ***" 
PRINT " — GEGEVENS OVER NIEUWE HYPOTHEEK 
PRINT 

PRINT "HOEVEEL WILT U EXTRA AFLOSBEN "? 
INPUT H3 

PRINT "WAT WORDT DE LOOPTIJD "; 

INPUT N2 

PRINT "WAT IS HET NIEUWE RENTE-PERC. "; 
INPUT R2 

PRINT "BETALING PER HALFJ = 1 PER MND * 
INPUT K2 

IF K2 < 1 OR K2 > 2 THEN 640 
M2 = 6 

IF K2 * 1 THEN 700 
M2 m 1 

PRINT "HOEVEEL PROC. AFSLUITPROVISIE "5 
INPUT A2 

PRINT " T AX AT IE-KOSTEN JA == 1 NEE * 2 "5 
INPUT D2 

IF D2 < 1 OR D2 > 2 THEN 720 
RETURN 

REM *** BOETEBERKENING O.B.V. MND *** 

X = HI / 100 * 01 / 100 
B * LI / 12 * X * R1 
B = INT(B * 100 + 0.5)/100 
RETURN 

REM *** BOETEBEREKENING O.B.V. PERC *** 

X « HI / 100 * 01 / 100 
B = LI * X 

B « INT(B * 100 + 0.5)/100 
RETURN 

REM *** PROVISIEKOBTEN *** 

V = A2/100 * (HI - H3) 

RETURN 

REM *** NOTARIS- EN TAXATIEKOBTEN *** 


940 RESTORE 
950 X ==•• -1 

960 IF X = -1 THEN 1000 

970 XI = X 

980 Y1 = Y 

990 21 = Z 

1000 READ X?Y?Z 

1010 X = X * 1000 

1020 IF X « 0 AND Z = 0 THEN 1160 
1030 IF HI - H3 > X THEN 960 
1040 J = Y 
1050 P = Z 

1060 IF HI « X THEN 1110 
1070 J = (Y - Yl)/10000 
1080 P = (Z - Z1)/10000 



1090 J = Y1 + INT(J * <(H1-H3) - XI) + 0.5) :REM NOTARIS 
1100 P = Z1 + INT(P * ((H1-H3) - XI) + 0.5) :REM TAXATIE 
1110 IF D2 = 1 THEN 1140 
1120 P = 0 

1130 REM ** DUMMY LEZEN ** 

1140 READ X»Y»Z 

1150 IF X <> 0 AND Z <> 0 THEN 1140 
1160 READ I» D$ :REM ROYEMENTSK. + TEKST 

1170 RETURN 
1180 : 

1190 REM *** NIEUWE ANNUITEIT *** 

1200 M = 2 

1210 IF K = 1 THEN 1230 
1220 M = 12 
1230 A = (R/M)/100 
1240 X = (1+A)t(N2 * M) 

1250 S ■ 1 - i/X 
1260 S = <H * A)/S 
1270 RETURN 
1280 s 

1290 REM *** KOSTENBEREKENING *** 

1300 REM *** BOETE *** 

1310 ON T1 GOSUB 840 >780 

1320 REM *** PROVISIE 
1330 GOSUB 900 

1340 REM *** NOTARIS + TAXATIEKOSTEN *** 

1350 GOSUB 940 

1360 F = B + V + J + P+ I SREM TOT.KOSTEN 

1370 RETURN 
1380 : 

1390 REM *** VOORDEEL OMSLUITEN *** 

1400 H = HI - H3 

1410 R « R2 

1420 K = K2 

1430 GOSUB 1200 
1440 B2 = S 

1450 G = Bl/Ml - B2/M2 sREM VOORDEEL PER MND 
1460 RETURN 
1470 s 

1480 REM *** MAANDENTERUGVERDIEN TUB *** 

1490 IF G < 0 THEN 1550 
1500 E = F/G 

1510 IF INT(F/G) ~ E = 0 THEN 1550 
1520 E = INT(E + 1) 

1530 El = INT(E/12) 

1540 E2 « E - El * 12 
1550 RETURN 
1560 s 
1570 : 

1580 REM *** POSITIONEREN BEDRAG *** 

1590 B$ •■= " —" 

1600 W = Z - INT(Z) 

1610 A* = STR$(INT(Z)) 

1620 IF W = 0 THEN 1670 
1630 W = INT<W * 100 + 0.5) 
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1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


B* = STR$(W) 

B$ = ”00” + RIGHT$<B**LEN<B*>-1> 

B* = RIGHT $(B$5 2) 

A$ « A$ + ” f ” + B* 

IF Z <> 0 THEN 1700 
A$ = "~ " 

Z « 10 - LEN(A$) 

RETURN 

REN *** WACHTEN *** 

PRINT "WILT U DOORGAAN <JA/NEE> "5 
INPUT D* 

D$ = LEFT*<D**1> 

RETURN 

REM *** UITVOER *** 

CLS 

PRINT ”*** HYPOTHEEK-VERGELIJKING ***" 

PRINT 

PRINT KOSTEN s ";D* 

PRINT 

Z = B : G08UB 1590 

PRINT "1. BOETE.: " ;TAB(28+Z ) A* 

Z = J s GOSUB 1590 

PRINT "2- NOTARISKOSTEN•. . :"?TAB(28+Z)A* 

Z = P : GOSUB 1590 

PRINT "3. TAXATIEKOSTEN...s"? TAB <28+Z)A$ 

Z = I : GOSUB 1590 

PRINT ”4. ROYEMENTSKOSTEN.s"5TAB(28+Z)A$ 

Z = V s GOSUB 1590 

PRINT "5. PROVISIEKOSTEN..:"5TAB(28+Z)A$ 

Z = F : GOSUB 1590 

PRINT TAB(26) "-" 

PRINT "TOTALE KOSTEN.:"5TAB(28+Z)A* 

PRINT TAB(26) 

GOSUB 1740 

IF D$ = "N" THEN 2180 

CLS :REM SCHERM WISSEN 

PRINT "*** HYPOTHEEK VERGELIJKING ***" 

PRINT 

PRINT "«> OPNIEUW AFSLUITEN VAN DE HYPOTHEEK <*=" 
PRINT 

Z = HI - H3 : GOSUB 1590 

PRINT "NIEUW HYPOTHEEKBEDRAG s"?TAB(29+Z)A* 

PRINT 

Z = B2 s GOSUB 1590 

PRINT "NIEUWE ANNUITEIT PER"+A*(K2)?TAB(29+Z)A$ 

Z = B2/M2 s GOSUB 1590 

PRINT "BRUTO-LAST PER MAAND s"5TAB(29+Z)A$ 

Z = G s GOSUB 1590 

PRINT "VOORDEEL PER MAANDs";TAB(29+Z)A* 

IF G < 0 THEN 2170 

PRINT "TERUGVERDIENTIJD "*E1""JAAR EN "?E2?"MAANDEN" 

PRINT 

RETURN 
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2190 : 

2200 REM **** STUURMODULE **** 

2210 REM *** INITIALISEREN *•** 

2220 GOSUB 190 

2230 REM *** FINANCIELE GEGEVENS I *** 
2240 GOSUB 270 

2250 REM *** FINANCIELE GEGEVENS II *** 
2260 GOSUB 540 

2270 REM *** KOSTENBEREKENING *** 

2280 GOSUB 1310 

2290 REM *** VOORDEEL/ANNUITEIT *** 

2300 GOSUB 1400 

2310 REM *** TERUGVERDIENTIJD *** 

2320 GOSUB 1490 

2330 REM *** UITVOER *** 

2340 GOSUB 1800 
2350 END 
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Voorbeeld 


*** HYPOTHEEK-VERGELIJKING *** 

“ GEGEVENS OVER HUIDIGE HYPOTHEEK —- 

WAT IS HET RESTANT SCHULDBEDRAG 170000 

TEGEN WELK PERCENTAGE 9.9 

HALFJAARLIJKS = 1 MAANDELIJKS = 2 2 

BEDRAG AAN AFLOSSING + RENTE PER MAAND 1478 
BOETE BEREKEND O.B.V. PERC. * 1 MND = 2 2 

HOEVEEL MAANDEN BOETE 3 

BOETE OVER HOEVEEL PROCENT V.D. SCHULD 85 


*** HY POTHEEK-VERGELIJKING *** 

— GEGEVENS OVER NIEUWE HYPOTHEEK — 

HOEVEEL WILT U EXTRA AFLOSSEN 0 
WAT WORDT DE LOOPTIJD 30 
WAT IS HET NIEUWE RENTE-PERC. 8.2 
BETALING PER HALFJ = 1 PER MND = 2 2 

HOEVEEL PROC. AFSLUITPROVISIE 1 
TAXATIE-KOSTEN JA = 1 NEE = 2 2 


*** HY POTHEEK-VE RGELIJKING *** 

- KOSTEN s TARIEVEN PER 15 APRIL 1982 


1. BOETE.: 3576,37 

2- NOTARISKOSTEN...: 1723,— 

3. TAXATIEKOSTEN. . . s 

4. ROYEMENTSKOSTEN.: 38,— 

5. PROVISIEKOSTEN..: 1700,— 


TOT ALE KOSTEN.: 7037,37 


WILT U DOORGAAN <JA/NEE> JA 
*** HYPOTHEEK VERGELIJKING *** 

~> OPNIEUW AFSLUITEN VAN DE HYPOTHEEK <=® 


NIEUW HYPOTHEEKBEDRAG s 170000,— 


NIEUWE ANNUITEIT PER MAAND 
BRUTO-LAST PER MAAND : 
VOORDEEL PER MAAND; 
TERUGVERDIENTIJD 2 JAAR EN 


1271,18 
1271,18 
206,8L’ 
11 MAANDEN 









4.6 Catalogus Video 

Dit catalogusprogramma maakt het mogelijk te zoeken in grote hoeveelheden gegevens. 
Men moet zich eens indenken dat men een bepaalde film wil zien, maar men niet meer 
weet op welke band de film staat. Dit programma biedt de gelegenheid op dit soort vragen 
razendsnel een antwoord te geven, zonder dat men zelf daadwerkelijk hoeft te zoeken. 

Aan de hand van een voorbeeld zal worden uitgelegd hoe het programma werkt. 

Stel men wil weten of er op band 1 films staan met Roger Moore als acteur. Wanneer het 
programma gestart is, zal het een zestal rubrieken laten zien waaruit men kan kiezen: titel, 
acteur/actrice, band, start teller en einde teller. Bij de vraag ’Geef rubriekof nummer’ geeft 
men het nummer van de corresponderende rubriek welke men wil kiezen of men toetst 
gewoon de rubriekbenaming in. In dit geval wordt BAND ingetoetst. Het programma komt 
na acceptatie direct terug met de volgende vraag ’Waaraan dient BAND te voldoen?’ In 
het voorbeeld wil men weten of op band 1 films voorkomen met Roger Moore. Men toetst 
dus een 1 in. Het programma zal de ingevoerde voorwaarde op het beeldscherm zetten en 
zal tegelijkertijd om de volgende voorwaarden vragen. Om de verschillende voorwaarden 
aan elkaarte koppelen waaraan de selecties moeten voldoen wordt gebruik gemaakt van 
EN of OF. Heeft men geen voorwaarden meer dan geeft men 0, ten teken dat het program¬ 
ma met het selectieproces kan beginnen. In het gegeven voorbeeld dient aan beide voor¬ 
waarden voldaan te worden. De band moet 1 zijn EN de acteur Roger Moore. Er wordt dus 
een 2 ingevoerd, ten teken dat het een EN situatie is. Nu herhaalt zich weer dezelfde 
cyclus als hiervoor beschreven. Men geeft bij rubriek op dat men een selectie wil maken 
op de rubriek acteur/actrice. Deze rubriek dient te voldoen aan Roger Moore. Het is vol- 
doende om alleen Roger in te voeren. Het programma kijkt uit hoeveel karakters de voor¬ 
waarde bestaat en neemt uit het bestand de gevraagde rubriek en neemt precies even- 
veel karakters op om te vergelijken. Ten slotte wordt opgegeven dat men stoppen wil door 
bij de vraag ’OF = 1 EN = 2 STOP = O' een nul te geven. 
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Zodra de nul is ingedrukt, start het zoekproces. Voldoet een record dan wordt het op het 
beeldscherm gezet. Het kan zijn dat er meer records zijn. Het is ook mogelijk het zoekpro¬ 
ces te onderbreken en een nieuwe selectie in te voeren. 

Wanneer men de interne data-file vult met gegevens in hoofdletters dan moeten de condi- 
ties ook in hoofdletters worden ingevoerd. Gebeurt dit niet dan zal het systeem geen enke- 
le overeenkomst vinden. Dit komt doordat de computer hoofdletters en kleine letters als 
twee totaal verschillende karakters beschouwt. Het zou zeer handig zijn als het systeem 
er zelf voor zou zorgen dat het geen verschil maakt tussen hoofdletters en kleine letters. 
Dit probleem is oplosbaar. Het enige dat men moet doen, is een subroutine toevoegen. 
Het gaat om de subroutine ’*** ALFANUMERIEK ***’. Er wordt in deze subroutine van 
uitgegaan dat de ASCII-waarde van A gelijk is aan 65 en de ASCII-waarde van a gelijk is 
aan 97 . De subroutine moet er dan als voIgt uitzien. 

1660 Z - LEN(B*( I) ) : E* = : F* - "" 

1661 FOR Y = 1 TO Z 

1662 A* = LEFT*(B*<I)>Y) 

1663 F = ASC(RIGHT$(A$i1)) 

1664 IF F > 122 OR F < 97 THEN 1666 

1665 F = F - 32 

1666 E* » E* + CHR*(F> 

1667 A* = LEFT*<C*(K,2>,Y> 

1668 F = ASC<RIGHT*(A* 5 1)) 

1669 IF F > 122 OR F < 97 THEN 1771 

1670 F = F - 32 

1671 F* = F* + CHR* < F) 

1672 NEXT Y 

1673 IF E* <> F* THEN 1690 
1680 V = 1 

1690 RETURN 

Deze catalogus is ingericht voor videocassettes, maar het is vrij eenvoudig deze catalo- 
gus ook geschikt te maken voor muziekcassettes. 

De interne data-file spreekt voor zich. Een DATA-regel isopgebouwd uit: titel, acteur/actri- 
ce, genre, bandnummer, startteller en eindteller. De laatste drie rubrieken zijn numerieke 
gegevens. De eerste drie zijn alfanumeriek, die moeten tussen aanhalingstekens. De 
laatste DATA-regel moet ’999’ bevatten. Deze regel geeft het einde van de file aan (zie 
regel 2160). 


Programma 

10 REM *** VIDEO-CATALOGUS *** 

20 DIM A*(6)s B (10» 3) > B*(10)? C<3»2>» C*<3i2) 
30 GOTO 1910 
40 : 

50 REM *** INITIALISEREN *** 

60 A*(1) = "TITEL” 

70 A*(2) = "ACTEUR/ACTRICE" 

80 A*(3) = "GENRE" 

90 A*(4) = "BAND" 

100 A*(5) = "START-TELLER" 

110 A*(6) = "EIND-TELLER" 
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120 RETURN 
130 : 

140 REM *** INVOER *** 

150 REM ** KOP AFDRUKKEN ** 

160 GOSUB 900 

170 FOR I = 1 TO 3 

180 PRINT I;TAB<3)"= "? A*(I); 

190 PRINT TAB(21)I+3jTAB<24)"= ";A*<I+3> 

200 NEXT I 

210 REM ** INGEGEVEN VOORWAARDEN AFDRUKKEN ** 

220 GOSUB 960 

230 REM ** VOORWAARDEN ** 

240 GOSUB 290 

250 IF H - 1 THEN 160 

260 RETURN 

270 : 

280 REM *** VOORWAARDEN *** 

290 H = 0 : REM STUURVARI ABEL.E 

300 X = T + 1 

310 IF X > 10 THEN 570 

320 B< Xi1) - 1 :REM OF-1 EN~2 ! 

330 IF X = 1 THEN 380 

340 PRINT "OF -- 1 EN - 2 STOP = 0 "5 

350 INPUT B< X>1) 

360 IF B(X.l) < 0 OR B(Xil) > 2 THEN 340 
370 IF B< Xi1> = 0 THEN 570 
380 PRINT "GEEF RUBRIEK-NAAM OF NUMMER "5 
390 INPUT A* 

400 A$ = LEFT*(A*»1> 

410 B(X j 2) = VAL<A*> 

420 IF B < X j 2) > 0 AND B(X»2) < 7 THEN 510 
430 REM ** ZOEKEN NAAM RUBRIEK ** 

440 FOR I = 1 TO 6 

450 IF LEFT*(A*(I)>1) <> A* THEN 480 
460 B < X» 2) = I 

470 I = 6 : REM MAXIMUM L.US 

480 NEXT I 

490 IF B< X> 2) = 0 THEN 380 
500 REM ** CONDITIE ** 

510 PRINT "WAARAAN DIENT ";A$<B<X»2))5" TE VOLDOEN " 
520 INPUT B* < X) 

530 IF B<X»2) < 4 THEN 550 
540 B ( X» 3) = VAL. (B* ( X ) ) 

550 T - X 

560 H = 1 

570 RETURN 
580 : 

590 REM *** VOORBEWERKING *** 

600 T = 0 

610 Y = 1 

620 RESTORE : REM DATAPOINTER VOORAAN 

630 FOR I = 1 TO 10 

640 FOR J - 1 TO 3 

650 B(I*J> = 0 

660 NEXT J 
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670 B* < I > « " ” 

680 NEXT I 

690 P =•• 0 sREM A ANTAL RECORDS 

700 REN ** PRINT NAT SCHOONVEGEN ** 

710 FOR I * 1 TO 3 
720 FOR J = 1 TO 2 
730 C(I? J) = 0 
740 C*<I*J) « "" 

750 NEXT J 
760 NEXT I 
770 RETURN 
780 s 

790 REN *** RECORD LEZEN *** 

800 REN ** UIT INTERNE DATA-FILE ** 

810 H = 0 :REN EOF ? 

820 READ C$ 

830 IF C* « •’999" THEN 870 
840 C$(1 5 2) = C$ 

850 H = 1 s REN NOT(EOF) 

860 READ C$ ( 2 9 2 ) 9 C$ ( 3 9 2 ) 9 C < 1 9 2 > 9 C < 2 9 2 ) 9 C < 3 9 2 ) 

870 RETURN 
880 : 

890 REN *** KOP AFDRUKKEN *** 

900 CLS sREM SCHERN WISSN 

910 PRINT "*** CATALOGUS - VIDEO *** 

920 PRINT 
930 RETURN 
940 s 

950 REN *** VOORWAARDEN AFDRUKKEN *** 

960 IF T = 0 THEN 1070 

970 PRINT “REEDS OPGENONEN VOORWAARDEN !“ 

980 FOR I = 1 TO T 
990 A$ = ” ” 

1000 IF I » 1 THEN 1040 
1010 A$ « “EN” 

1020 IF B(l9l> = 2 THEN 1040 
1030 A* = “OF” 

1040 PRI NT I 5 TAB(4)A$ ? TAB(7)A$(B(19 2))5 
1050 PRINT TAB(24)” = "5B*<I> 

1060 NEXT I 
1070 RETURN 
1080 : 

1090 REM *** BEWERKING *** 

1100 REN ** RECORD LEZEN •** 

1110 GOSUB 810 

1120 IF H = 0 THEN 1320 

1130 R = 0 sREM STUURVARIABELE 

1140 REN ** VOORWAARDEN TOETSEN ** 

1150 FOR I = 1 TO T 

1160 K = B<1 9 2) s REN RUBRIEKNUNMER 

1170 V = 0 :REM ** STUURVARIABELE 

1180 L = 1 sREM ALFANUNERIEK 

1190 IF K < 4 THEN 1210 
1200 L a 2 

1210 ON L. GOSUB 1660 9 1720 
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1220 S = R + V 

1230 R * 1 2 REM VOLDOET 

1240 IF S >a B(I?1) THEN 1260 
1250 R = 0 5 REM VOLDOET NIET 

1260 NEXT I 

1270 IF R = 0 THEN 1320 

1230 REM ** REGEL AFDRUKKEN ** 

1290 GOSUB 1360 

1300 REM ** SCHUIVEN ** 

1310 GOSUB 1570 
1320 RETURN 
1330 : 

1340 REM *** UITVOER *** 

1350 REM ** KOP AFDRUKKEN ** 

1360 GOSUB 900 
1370 P a p + 1 

1380 PRINT "AANTAL GEACCEPTEERDE RECORDS "5P 
1390 PRINT 

1400 REM ** AFDRUK ** 

1410 FOR J a l JO 2 

1420 IF C(1 9 J) a 0 AND C(3 9 J) a 0 THEN 1490 
1430 FOR I = 1 TO 3 

1440 PRINT A$<I)5TAB(19)": ”;C$(1 9 J) 

1450 NEXT I 

1460 FOR I a l TO 3 

1470 PRINT A*<1+3)5TAB<19)"s»;C<1 9 J) 

1480 NEXT I 
1490 NEXT J 
1500 PRINT 

1510 PRINT "ER KUNNEN MEER RECORDS VOLDOEN !" 

1520 Y a 1 

1530 GOSUB 1770 

1540 RETURN 

1550 2 

1560 REM *** OPSCHUIVEN *** 

1570 FOR I = 1 TO 3 
1580 C*<1 9 1) a C$ <1 9 2) 

1590 C<1 9 1) = C<I ? 2) 

1600 C$ <1 9 2) a »» 

1610 C(1 9 2) a 0 
1620 NEXT I 
1630 RETURN 
1640 2 

1650 REM *** ALFANUMERIEK ? *** 

1660 Z a LEN<B*<I)) 

1670 IF B$(I) <> LEFT $ < C$ ( K 9 2) 9 Z ) THEN 1690 
1680 V a 1 sREM VOLDOET 

1690 RETURN 
1700 2 

1710 REM *** NUMERIEK ? *** 

1720 IF B<1 9 3) <> C< K—39 2) THEN 1740 
1730 V a l -REM VOLDOET 

1740 RETURN 
1750 2 

1760 REM *** WACHTEN *** 
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1770 A$ = "WILT U DOORGAAN" 

1780 IF Y = 1 THEN 1800 

1790 M = "WILT U NOG EEN SELECTIE" 

1800 PRINT A$?” <JA/NEE> "? 

1810 INPUT A* 

1820 A* - LEFT$(A$,1) 

1830 Y - 1 sRLM DOORGAAN 

1840 IF A$ = "J" THEN 1870 
1850 Y = 0 

1860 IF A$ <> "N" THEN 1770 
1870 RETURN 
11380 : 

1890 REM **** STUURMODULE **** 

1900 REM *** INITIALISE REN *** 

1910 GOSUB 60 

1920 REM *** VOORBEWERKING *** 

1930 GOSUB 600 

1940 REM *** INVOER *** 

1950 GOSUB 160 

1960 REM *** BEWERKING *** 

1970 GOSUB 1110 

1980 IF H <> 0 AND Y <> 0 THEN 1970 
1990 REM *** NIEUWE SELECTIE *** 

2000 Y = 2 

2010 GOSUB 1770 

2020 IF A$ = "J" THEN 1930 

2030 END 

2040 : 

2050 REM - 

2060 : 

2070 REM ***** INTERNE DATA-FILE ***** 

2080 DATA "SCHONE SLAAPSTER"»“GRETA GARBO"»MUSICAL 
2090 DATA 1,0,1200 

21 00 DATA "KING KONG","WILLIAM HOLDEN", ACTIE 
2110 DATA 1,1201,1700 

2120 DATA "FINAL COUNT DOWN","KIRK DOUGLAS",OORLOG 
2130 DATA 3*0,1200 

2140 DATA "YOU ONLY LIVE TWICE",“ROGER MOORE",ACTIE 
2150 DATA 1,1701,3500 
2160 DATA "999" 




Voorbeeld 


*** 

CATALOGUS - VIDEO 

*** 


1 

= TITEL 

4 « 

BAND 

9 

» ACTEUR/ACTRICE 

5 = 

START-TELLER 

3 

= GENRE 

6 = 

EIND-TELLER 


GEEF RUBRIEK-NAAM OF NUMMER BAND 
WAARAAN DIENT BAND TE VOLDOEN 1 


*** CATALOGUS - VIDEO *** 

1 - XITEL 4 = BAND 

2 = ACTEUR/ACTRICE 5 - START-TELLER 

3 = GENRE 6 = EIND-TELLER 

REEDS ORGENOMEN VOORWAARDEN ! 

1 BAND = 1 

OF = 1 EN = 2 STOP - 0 2 

GEEF RUBRIEK-NAAM OF NUMMER 2 

WAARAAN DIENT ACTEUR/ACTRICE TE VOLDOEN ROGER MOORE 


*** CATALOGUS - VIDEO *** 

1 = XITEL 4 = BAND 

2 = ACTEUR/ACTRICE 5 = START-TELLER 

3 = GENRE 6 = EIND-TELLER 

REEDS ORGENOMEN VOORWAARDEN ! 

1 BAND = 1 

2 EN ACTEUR/ACTRICE = ROGER MOORE 

OF = 1 EN = 2 STOP =00 


*** CATALOGUS - VIDEO *** 


AANTAL GEACCEPTEERDE RECORDS 1 


TITEL 

ACTEUR/ACTRICE 

GENRE 

BAND 

START-TELLER 

EIND-TELLER 


YOU ONLY LIVE TWICE 
ROGER MOORE 
ACTIE 
1 

1701 

3500 


ER KUNNEN MEER RECORDS VOLDOEN ! 

WILT U DOORGAAN <JA/NEE> JA 

WILT U NOG EEN SELECTIE <JA/NEE> NEE 
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Appendix 


In deze appendix zijn de volgende conversietabellen opgenomen: 

Tabel 1: String-functies. 

Tabel 2: Rekenkundige en logische functies. 

Tabel 3: Statements. 

De tabellen kunnen worden gebruikt bij het aanpassen van programma’s die op een ander 
type computer zijn geschreven dan de in uw bezit zijnde computer. 

Het gebruik van de tabellen gaat als voIgt: 

In het aan te passen programma ziet u een statement waarvan u denkt dat die niet op uw 
computer voorkomt. U zoekt de statement op in de tabellen, controleert op welke compu¬ 
ters die statement voorkomt, en indien hij inderdaad op uw computer niet voorkomt dan 
kunt u in de kolom 'overeenkomstige statements’ vinden of er vervangende statements 
zijn. Zo ja, dan kunt u de voor uw computer geldende vervangende statement in het aan te 
passen programma gebruiken. 

Statements en functies die alleen op een computer voorkomen, en waarvoor geen ver¬ 
vangende statement of functie bestaat, zijn in deze tabellen meestal niet opgenomen. 
De auteur van dit boek heeft getracht de programma’s zoveel mogelijk in converteerbare 
statements te schrijven. 


Tabel 1. String-functies. 


string-functies 

BBC-computer | 

Commodore 64 | 

APPLE II 

DAI 

o 

cc 

O 

CO 

>- 

o 

2 

PET/CBM 

CN 

CL 

TRS80 

L8XZ I 

1 VIC20 

1 ACORN ATOM | 

overeenkomstige string-functies 

$ n 











X 

CHR$(/?) 

ASC (str) 

X 

X 

X 

X 

X 

X 

X 

X 


X 


CH 

CH 











X 

ASC [str) 

CHR$(n) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


$ In) 

CODE 









X 




FRED 


X 





X 





FRE (/?$) 

FRE(n$) 





X 



X 




FRED 

GET 

X 

X 

X 

X 


X 




X 


INKEY$ 

INKEY$ 

X 







X 

X 



GET 

LEFT $(str,n) 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


LEN (str) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


M\D$(str,m,n) 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


RIGHT$(sf/-,A?) 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


slicing 









X 



geeft LEFT$, MID$ en RIGHT$ functies 

STR$(n) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


STR\NG$(n,kar) 

X 






X 

X 





VAL (str) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


VARPTR n 




X 



X 

X 
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Tabel 2. Rekenkundige en logische functies. 


functies 

BBC-computer 

Commodore 64 

APPLE II 

DAI 

EXIDY SORC. 

PET/CBM 

P2000 

TRS80 

ZX81 

VIC20 

ACORN ATOM 

overeenkomstige functies 

& n 

X 










X 

HEX$(r?) 

% 











X 

CINT, FIX 

?FRE(0) 



X 









FRE 

ABS 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


ACS 

X 








X 




AND 

X 


X 

X 

X 

X 

X 

X 

X 


X 


ASN 

X 








X 




ATN 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


CALLM... ,(x) 




X 








LINK n, USR(x) 

CDBL 







X 

X 





CINT 







X 

X 




% 

COS n 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


CSGN 







X 

X 





CUR 




X 








POS 

DEG 

X 










X 


ERL 

X 






X 

X 





ERR 

X 






X 

X 





EXP n 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


FIX 







X 

X 




% 

FLT 











X 


FRAC 




X 









FRE 


X 


X 

X 

X 

X 

X 


X 


?FRE(0) 

HEX$(/7) 




X 



X 





& n 

HTN 











X 


INT 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



LINK n 











X 

CALLM...,(x), USR(x) 

LN 

X 








X 



LOG 

LOG 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

LN 

LOGT 




X 









MOD 

X 


X 

X 



X 





x%y 

NOT 



X 

X 

X 

X 

X 

X 

X 




OCT $(/?) 







X 






OR 

X 


X 

X 

X 

X 

X 

X 

X 


X 


POS 

X 

X 

X 


X 

X 

X 

X 




CUR 

RAD 

X 










X 


RND 

X 



X 







X 

RND(0), RND (neg) 

RND%/7 











X 


RND(0) 





X 

X 

X 

X 

X 

X 


RND (neg), RND 

RND (n) 


X 





X 

X 




RND(pos) 

RND (neg) 



X 









RND(0), RND 

RND (pos) 



X 









RND(r?) 

SCRN(x,k) 



X 

X 









SGN 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


SIN n 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


SPC m 

X 

X 

X 

X 

X 


X 






SPC n 






X 




X 



SQR(a7) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


SWAP 







X 






TAN(n) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


USR(x) 

X 

X 

X 


X 

X 

X 

X 

X 

X 


CALLM...,(x), LINK n 

x%y 











X 

MOD 
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Tabel 3. Statements. 


statements 

BBC-computer 

Commodore 64 

APPLE II 

DAI 

EXIDY SORC. 

PET/CBM 

P2000 

TRS80 

ZX81 

VIC20 

ACORN ATOM 

overeenkomstige statements 

$ 











X 

DEFSTR, IMPSTR 

% 











X 

DEFDBL 

c: 

II 

X 










X 

POKE m,n 

?n 

X 










X 

IN (poo/t), IN #/i, INP, INP(n) 

AT 









X 



CURSOR m,n 

BEEP x,y 











X 

SOUND 

CALL 

X 


X 









CALLM, SYS, LINK 

CALLM 




X 








CALL, SYS, LINK 

CLEAR n 

X 










X 

MODE n 

CLEAR 0 

X 










X 

MODE 0, TEXT, GR 

CLOAD* 







X 





INPUT#n,m, RECALL, LOADA, LOAD, GET A 

CLOSE 

X 

X 




X 




X 


SHUT 

CLS 

X 







X 

X 



HOME, PRINT $12 

COLOR n 











X 

HCOLOR = n 

COLOR =n 



X 









COLOUR n 

COLOUR n 

X 










X 

COLOR =n 

COUNT 

X 










X 


COUNT n 

X 










X 

TAB 

CSAVE* 







X 





SAVE A, STORE 

CURSOR m,n 




X 






X 


AT 

DATA 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


DEF FN (naam) 

X 

X 

X 



X 

X 



X 



DEFDBL 







X 

X 




% 

DEFINT 







X 

X 




IMPINT 

DEFSNG 







X 

X 




IMPFPT 

DEFSTR 








X 




IMPSTR, $ 

DIM var{n) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


DO.. UNTIL 











X 


DOT 




X 








SET (x,y), PLOT, HPLOT, PLOT k,x,y 

DRAW 

X 



X 








' 

DSP n 



X 










END 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

- 

ERROR 

X 






X 

X 





EXT 

X 










X 


FILL 




X 









FIN 











X 

OPEN 

FOR. TO.. STEP 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


GET 

X 










X 


GET A 

X 

X 









X 

INPUT#/7,m, RECALL, LOADA, CLOAD*, LOAD 

GOSUB n 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


GOTO n 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


GR 



X 









CLEAR 0 

HCOLOR = n 



X 









COLOR n 

HOME 



X 









CLS, PRINT $12 

HPLOT 



X 









DOT, PLOT, PLOT k,x,y 

HTAB ( n) 



X 










IF..GOSUB n 

X 


X 

X 

X 

X 

X 

X 



X 


IF..GOTO n 

X 


X 

X 

X 

X 

X 

X 


X 

X 


IF. .THEN.. 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


IF..THEN..ELSE 

X 






X 

X 



X 


IMPFPT 




X 








DEFSNG 

IMPINT 




X 








DEFINT 

IMPSTR 




X 








DEFSTR, $ 

IN (poort) 





X 


X 





IN#/7, INP, INP(n), ?n 

IN 



X 









IN (poort), INP, INP(n), ?n 

INP 




X 








IN (poort), IN#n, INP (n), ?n 

INP (n) 








X 




IN (poort), IN#n, INP, ?n 

INPUT n 

X 

X 







X 



INPUT 

INPUT". ,n 

X 


X 

X 

X 

X 

X 

X 


X 

X 

INPUT n 

INPUT #/7,m 


X 



X 

X 


X 


X 


RECALL, LOADA, CLOAD*,LOAD, GET A 

LET 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


























Tabel 3. Statements (vervolg). 


statements 

BBC-computer 

Commodore 64 

APPLE II 

DAI 

EXIDY SORC. 

PET/CBM 

P2000 

TRS80 

ZX81 

VIC20 

ACORN ATOM 

overeenkomstige statements 

LINK 











X 

CALL, CALLM, SYS 

LOAD 

X 








X 



INPUT# a?, m, RECALL, LOADA, CLOAD*, GET A 

LOADA 




X 








INPUT#a7,a?7, RECALL, CLOAD*, LOAD, GET A 

LPRINT 







X 

X 

X 



PRINT $2, PRINT = 

MODE n 

X 



X 








CLEAR n 

MODE 0 




X 








TEXT, CLEAR 0 

MOVE 

X 










X 


NEXT 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


ON. .ERROR GOTO n 

X 






X 

X 



X 

ONERR 

ON. .GOSUB n 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


ON..GOTO a? 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


ONERR 



X 









ON. .ERROR GOTO n 

OPEN 


X 




X 




X 


FIN 

OUT (poort, n) 




X 



X 

X 




PR#a?, PRINT#a? 

PAUSE 









X 



WAIT 

PDL 



X 

X 









PEEK (n) 


X 

X 

X 

X 

X 

X 

X 

X 

X 


PRINT ?/7 

PLOT 



X 






X 



SET ( x,y ), HPLOT, DOT, PLOT k,x,y 

PLOT k,x,y 

X 










X 

RESET (x,y), UNPLOT, SET (x,y), HPLOT, DOT 

POINT 

X 







X 





POKE m,n 


X 

X 

X 

X 

X 

X 

X 

X 

X 


?/77,/7 

PR #a? 



X 




X 

X 




OUT (poort, n), PRINT# a? 

PRINT 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


PRINT $12 











X 

CLS, HOME 

PRINT $2 











X 

PRINT =, LPRINT 

PRINT = 






X 




X 


SAVEA, STORE, LPRINT 

PRINT In 

X 










X 

PEEK (a?) 

PRINT @n 








X 





PRINT USING 







X 

X 





PRINT #n 

X 

X 




X 




X 


OUT (poort, n), PR#a? 

PTR (n) 

X 










X 


PUT 











X 


READ 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


RECALL 



X 









INPUT#a?,a77, LOADA, CLOAD*, LOAD, GET A 

REM 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


RESET (x,y) 








X 




UNPLOT, PLOT k,x,y 

RESTORE 

X 

X 

X 

X 

X 

X 


X 


X 

X 

RSTORE n 

RESUME 



X 




X 

X 





RETURN 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


RSTORE n 







X 





RESTORE 

SAVEA 




X 








STORE, PRINT = 

SET (x,y) 








X 




PLOT, HPLOT, DOT, PLOT k,x,y 

SGET 











X 


SHUT 











X 

CLOSE 

SOUND 

X 



X 








BEEP x,y 

SPEED 



X 










STOP 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


STORE 



X 









SAVEA, PRINT = 

SYS 


X 








X 


CALL, CALLM, LINK 

TAB 

X 


X 

X 

X 

X 

X 

X 

X 

X 


COUNT n 

TEXT 



X 









MODE 0, CLEAR 0 

TOP 











X 


UNPLOT 









X 



RESET ( x,y), PLOT k,x,y 

VLIN..AT 



X 










VTAB (n) 



X 










WAIT 


X 

X 

X 

x . 

X 

X 



X 

X 

PAUSE 


140 

































Aantekeningen 
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Aantekeningen 


143 




Aantekeningen 
































“ 

* 

. 























Dit boek bevat een verzameling BASIC-programma’s met 
een grote onderlinge verscheidenheid. 

Het eerste deel bestaat uit educatieve programma’s waar- 
mee kinderen spelenderwijs kunnen leren lezen en reke- 
nen. Voor de wat oudere kinderen zijn er taaloefeningen 
zoals ontleden en alfabetiseren opgenomen. 

Bij het spelletjesgedeelte is het wel de bedoeling dat ook de 
kinderen aan de beurt komen en dat niet alleen vader en 
moeder zich over de computer ontfermen. Het zal in ieder 
geval een leuke ontspanning zijn na het wat serieuzere 
werk. 

Het laatste gedeelte bevat een aantal algemene program¬ 
ma’s die bijvoorbeeld kunnen dienen als hulp bij het bereke- 
nen van een nieuwe hypotheek of als huishoudboekje of als 
hulp bij de modelbouwhobby. 

Met recht kunnen we spreken van programma’s voor het 
hele gezin. 


